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INTRODUCTION 


Burroughs RPG (Report Program Generator) is a machine-independent programming 
language suitable for implementation in a wide variety of data processing ap- 
plications. B 1700 RPG embraces RPG as implemented on IBM 360/20 Systems and 
RPG II as implemented on IBM S/3. In addition, Burroughs has taken advantage 
of the sophisticated operating system of the B 1700 to allow optional exten- 
sions to the above-mentioned implementations. 
Burroughs B 1700 RPG defaults to that of IBM S/3. A simple control option 
signals the compiler to generate code as in 360/20 RPG. Throughout this 
manual, reference to 360/20 RPG will be denoted by "RPG 1", 
Burroughs B 1700 RPG offers the following advantages to the user: 

a. Simple, generative syntax for ease of program implementation. 


b. Accelerated programmer training and simplified retraining require- 
ments, 


c. Ease of conversion through standard implementation. 

d. Ease of program modification. 

e. Standardized documentation, 

f. Facilities for program conversion to COBOL (refer to appendix F). 


This manual describes Burroughs B 1700 RPG, and is a reference to the RPG 
Specification Forms together with each of their appropriate fields. 


Columns not mentioned in the specifications sections are not used and must be 
left blank, 


When left and right broken brackets (< >) are used in syntax descriptions they 
denote that a metalinguistic variable of the language is to be placed at that 
point in the syntax, 


This reference manual reflects the MARK IV.1 System Software Release version 
of the RPG compiler. 


xV 


SECTION | 


RPG OPERATION 


A program written in Burroughs RPG, called a source program, is accepted as 
input by the RPG Compiler. The compiler first verifies that the source pro- 
gram is syntactically error-free, then converts this source into COBOL S- 
Language, which is then ready for execution on the system. The S-Language 
generated by the compiler can be executed by using an Interpreter. The 
Interpreter causes the system hardware to perform the operations specified 
by the S-Language Program and, thus, by the programmer who wrote the source 
program, 


For a more detailed description of the function of the S-~Language as it re- 
lates to the Interpreter and the hardware, refer to B_ 1700 System Software 
Operational Guide, Form No. 1068731. 


RPG SOURCE PROGRAM 


An RPG Source Program is divided into eight parts which must appear in the 
following order: 


Control Card Specifications 

File Description Specifications 
Extension Specifications 

Line Counter Specifications 
Telecommunications Card Specifications 
Input Specifications 

Calculation Specifications 
Output-Format Specifications 


A description of the above specifications is contained in the paragraphs that 
follow. 


CONTROL CARD SPECIFICATIONS 


These specifications provide certain information about the program to the 
B 1700 RPG Compiler. 


FILE DESCRIPTION SPECIFICATIONS 

These specifications provide information about the equipment being used, and 
associate files with the hardware devices that will be used. The file types 
(i.e., input, output, combined) and blocking factors are also given. 


EXTENSION SPECIFICATIONS 


These specifications are used to describe tables and arrays that will be used 
with the progran. 


These specifications provide information about the number of lines to be 
printed on each page of the output forms that are used. 


TELECOMMUNICATIONS CARD SPECIFICATIONS 

The Telecommunications card is used to further define a file specified on the 
File Description Specifications as a DATACOM or BSCA file. There is no 
special form for coding Telecommunications Specifications. 

INPUT SPECIFICATIONS 


These specifications are used to describe the record layouts of all input files 
used by the program. 


CALCULATION SPECIFICATIONS 


These specifications define the steps necessary to accomplish the desired task 
when operating on data described in the program. 


OUTPUT-FQRMAT SPECIFICATIONS 


These specifications are used to specify the type and arrangement of data that 
will be written as output from the program, 


DOLLAR CARD SPECIFICATIONS 

The Dollar Card ($ Card) Specifications sheet is also defined for Burroughs 
RPG. These specifications are used to accommodate machine~ and system- 
dependent features, and may appear anywhere in a RPG Source Program, unless 
otherwise specified (see Section 11). 


The above specifications are coded using the following Report Program 
Generator forms: 


a, Control Card Specifications/File Description Specifications 
(Form No. 1055837) 


b, Extension Specifications/Line Counter Specifications 
(Form No. 1055852) 


c. Input Specifications (Form No. 1055860) 
d. Calculation Spvecifications (Form No. 1055878) 
e, Output-Format Specifications (Form No. 1055886) 
f. Dollar Card Specifications (Form No. 1055845) 
RPG _ SQURCE PROGRAM DECK 
The coded information contained on the specification forms is recorded in 


punched cards which constitute the source program, The arrangement of these 
cards in the source deck is illustrated in figure I1-l. 


O OUTPUT-FORMAT SPECIFICATIONS 


C CALCULATION SPECIFICATIONS 


I INPUT SPECIFICATIONS 


T TELECOMMUNICATIONS CARD 
SPECIFICATIONS 


L LINE COUNTER SPECIFICATIONS 


E EXTENSION SPECIFICATIONS 


F FILE DESCRIPTION SPECIFICATIONS 
H CONTROL CARD SPECIFICATIONS 


$ DOLLAR CARD SPECIFICATIONS 
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Figure 1-1. RPG Source Program Deck 


Should source corrections become necessary, appropriate changes can be made 
and the program recompiled. Thus, the source program deck always reflects 

the S-Language being operationally executed. See Section 12 for operating 

instructions. 


RPG FORMAT 


As mentioned in the introduction to this manual, Burroughs RPG accepts source 
statement input in the format of either RPG 1 or RPG II. 


The following is a list of exceptions found in B 1700 RPG: 


a. The Control Card requires simplified recoding before compiling pro- 
grams from systems other than B 1700. 


b. B 1700 RPG allows 511 characters for alpha fields and 31 for numeric. 


c. IBM's RPG uses standard right signed numeric fields, whereas 
Burroughs B 1700 RPG uses standard left sign. IBM's System 3 
standard plus sign is 'F' right sign, the 360/20 standard plus 
Sign is 'C' right sign, whereas the Burroughs standard plus sign 
is 'C' left sign. B 1700 RPG allows the right sign option for 
system compatibility. (Refer to $RSIGN option in Section 11.) 


c) 


Numeric fields must be edited if the C zone punch is not wanted on 
output, Otherwise, a poSitive unedited numeric field will contain an 
alpha character in the left-most position of the field. For example, 
CIFOF1F3 would appear as AOQ13 on the printed output. However, if 
this field is edited, it will assign a F to the left-most character, 
changing the output to appear as 1013. 

96-column devices wiili not allow packed decimal format. 


The following features and language constructs are not supported in 
Burroughs RPG: 


1 Binary data format. 

2 Sterling data format. 

3. Alternate collating Sequence. 

4 Record address files. 

+) Inquiry programs. 

6 Spread card or TR format. 

7. Printer keyboard output files. 

8. External assembler subroutines. 

9 Blank after literals. 

10. Redefined field lengths. 

11. Factor 1 and Factor 2 both literals. 
12. Card print feature of IBM's 360/20, 
13. File translation. 


14. Processing sequential files within limits. 


SECTION 2 


RPG LANGUAGE ELEMENTS 


Burroughs RPG is a programming language based upon a fixed series of events, 
called the RPG "program cycle", which takes place during program execution. 
Due to the strict limitations of the generated program, the source language 
must conform to rigid rules of syntax. The following paragraphs and sections 
define the rules for writing programs using the RPG language. 


CHARACTER SET 


The minimum RPG character set consists of the following characters: 


0-9 
A-~Z 


& 


i 


blank or space 
ampersand 

period or decimal point 
minus sign 

dollar sign 

asterisk 

comma 

apostrophe 


The following RPG characters are optional and may be added to the above list: 


“1 @Ake 


plus sign 

less than sign 
greater than sign 
left parenthesis 
right parenthesis 
left bracket 
right bracket 
logical OR 
logical NOT 
exclamation point 
semicolon 

slash (virgule) 
percent sign 
underscore 
question mark 
colon 

pound sign 

at sign 

equal sign 
quotation mark 


CHARACTERS USED FOR NAMES 


The character set used to form names consists of the 36 characters: 0 through 
9 and A through Z, 


CHARACTERS USED FOR EDITING 


The character set used for special purposes within edit words in the Output7~ 
Format Specifications consists of the following nine characters: 


blank or space 

Zero 

dollar sign 

decimal point 

comma 

credit symbol (two characters) 
asterisk (check protect) 
amperand 

minus sign 


DEFINITION OF NAMES 


A name must be left-justified in the field, must begin with an alphabetic 
character, and is ended by a space or the end of the field, whichever comes 
first, Ali characters in a name except the first may be any combination of 
alphabetic and numeric characters (special characters are not allowed). 


D1 1 3 
Blanks may not appear between the characters in a name. 


1@x*Q- + Bo 
es] 


RPG defines the following four types of names: 


Filenames 

Vector names (table or array names) 
Field names (variable names) 

Labels 


FILENAMES 


A filename is a collective name or word that designates a set of data items. 
The contents of a file are divided into logical records which are made up of 
any consecutive set of data items, Filenames cannot exceed eight characters 
and the first seven characters must be unique among filenames (e.g., DISKFILE 
and DISKFIL are considered by the compiler to be equal). 


VECTOR NAMES 


A vector name is used to identify a data item which is actually a table or 
an array. The table will be loaded with a number of elementary data items 
which are accessed through use of the vector name that identifies the entire 
table. Vector names cannot exceed six characters and must be unique among 
vector and field names, 


FIELD NAMES 


A field name is used to identify an individual element of data. Field names 
cannot exceed six characters and must be unique among vector and field names. 
A separate memory area is reserved for each unique field name which is com- 
pletely unrelated to any memory area reserved for any other field name. 


LABELS 
A label is used only to identify a point in the Calculation Specifications to 


which a GOTO operation will branch, or to identify the beginning of a sub- 
routine, Labels cannot exceed six characters and must be unique among labels. 


DEFINITION OF LITERALS 


A literal is an item of data which contains a value identical to the characters 
being described. There are two classes of literals: numeric and alphanumeric. 


NUMERIC LITERAL 


A numeric literal is defined as an item composed of characters chosen from the 
digits 0 through 9, an optional plus sign (all numeric literals not signed 
minus (“) are assumed plus) or minus sign (-), and the decimal point or decimal 
comma (see item e below). The rules for the formation of a numeric literal 
are: 


a, There must be at least one digit in a numeric literal. 


b. The sign of a numeric literal must appear as the left-most character. 
If no sign is present, the literal is defined as a positive value. 


c. Only one sign character and/or one decimal point may be contained in 
a numeric literal, 


d. The maximum total length of a numeric literal is 10 characters, in- 
cluding sign and decimal point. 


e. Decimal commas must be used in place of decimal points if the Inverted 
Print Options I or J are used (Control Card, Column 21). 


f. Embedded blanks are not allowed. 
The following are examples of numeric literals: 


13427 

.005 

+1.808 = 1.808 
-.0968 

7894 , 54 


ALPHANUMERIC LITERAL 


An alphanumeric literal may be composed of any allowable character. The 
beginning and end of an alphanumeric literal is denoted by an apostrophe. 

Any character enclosed within apostrophes is part of the alphanumeric literal, 
Consequently, all spaces enclosed within the apostrophes are considered part 

of the literal. Two consecutive apostrophes within an alphanumeric literal 
cause a single apostrophe to be inserted into the literal string. An alpha- 
numeric literal which consists only of four consecutive apostrophes results 

in a single apostrophe. The rules for the formation of an alphanumeric literal 
are: 


a. There must be at least one character in an alphanumeric literal. 
b. The maximum length of an alphanumeric literal used in the Calculation 
Specifications is eight characters, and in the Output-Format Specifi- 


cation is 24 characters. 


c. Alphanumeric literals may not be used for arithmetic operations. 


The following are examples of alphanumeric literals: 


Literal on Source Program Level Literal Stored by Compiler 
"ACTUAL ' ACTUAL 
'=-1234, 56" -1234.56 
'WEEK''S' WEEK'S 
"TODAY''S DATE’ TODAY'S DATE 
rrr? ' 
'tA't{(Bt A'B 
‘Atrrrpr A''B 


DEFINITION OF RESERVED WORDS 


Reserved words have a specific function in the RPG syntax and are of two 
types: special words and operation codes. 


SPECIAL WORDS 


Reserved words are used in the Input, Calculation, and Output-Format Speci- 
fications, and specify such things as page numbering, date fields, and card 
interpreting. 


The following special words are reserved for use as variables: 


PAGE 
PAGE1 
PAGE2 
UDATE 
UMONTH 
UDAY 
UYEAR 
*PRINT 
*PLACE 


Their use is discussed fully in the sections where they are used, 


NOTE 


The special words JDATE and UTIME have 
been reserved and, if used, will cause 
a syntax error. 


OPERATION CODES 


These reserved words are used in the Calculation Specifications, and specify 
operations to be performed upon data items. A complete description of the 
operation codes is presented in Section 9. 


COMMON _ FIELD DEFINITIONS 


The RPG specification forms have certain common fields which have consistent 
entries within a RPG Program. These fields and their respective entries are 
described below, so that they need not be repeated in subsequent sections. 


757-80 


eo ee ee 
| Entry | Definition | 


Header Card (Control Card Specification). 
File Description Specification. 
| Extension Specification. 

| Line Counter Specification. 

| Telecommunications Card, 

Input Specification. 
Calculation Specification. 
Output-Format Specification. 
Not allowed except for Comment Card or 
Dollar Card (depending upon entry in 
column 7). 


OQHAE ty 


COMMENTS/DOLLAR CARD 


Since it is often necessary to write explanatory statements within the 
source program, the Comment Card allows the entire line to the right of 
column 7 (which contains an asterisk, '"*") to be produced on the source 
program listing for documentation clarity. Comments are not instruc” 
tions to the RPG Program or Compiler, but serve only as a means of 
including program documentation, Any valid EBCDIC characters may be 
used in a comment line. An asterisk in column 7 overrides column 6, 

An example of comment line coding is illustrated in figure 2-2. 


14]i5 GI17]18 19 420 B 129 30 31 132/33 


oF Fels] iain] [rls loll [ebdailetlel lal) [ola 

3] [Fie (alle! [clefolefp|.| WalejLi JUZINIEIS| hw 

ols] [ele] [all [cloitlulwin| |7| lalele| irigelairie[p| 

MD) ARPLPONIBE ED) Bie MEL 
% 


HON ZHeRHOU LA HSE ae 
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vt clade why [cEINfee 
fa laste] 
blselblehre 
PITILIE 
UT 
aaa a ah 
errrrres 
CCOCCCTTEEN 


a ie 5 i 
i 


Figure 2-2. Comment Line Coding 


The $ specification in column 7 designates the line to be a Dollar Card 
Specification which allows the RPG Compiler to accommodate machine~ and 
system-dependent features. A doiiar sign in column 7 overrides column 6, 
Dollar Cards may appear at any point in the RPG Source Program Deck. 
Section 11 describes the use of these specifications, 


PROGRAM IDENTIFICATION 


The PROGRAM IDENTIFICATION entry in the upper right~hand corner of each 
specification form is ignored by the compiler, but will appear on the 
source program listing. Thus, it can be used for documentation to 
identify different portions of the program, if desired. 


o-€ 


PROGRAM ID 


G14006 


Burroughs B 1700 RPG 
PAGE OF 
PROGRAMMER PEE om 
a) 
PROGRAM 
CONTROL CARD SPECIFICATIONS Sie caen alte) 


Aa AS PEL TE oe AA aE SRO LE A SS SS St Sr sh SS SSS ih SS SS SE 


D E 


15 Specifies whether the DEBUG operation is. to be used 
during compilation. Entries: Blank or 1. 


17 Specifies the location of the sign in all numeric 
data items. Entries: Blank or L, or R. 


21L Specifies the punctuation (INVERTED PRINT) to be 
used for numeric literals. Entries: Blank, I, J, or D. 


41 Causes output lines to be conditioned by the 1P 
indicator. Entries: Blank or 1. 


ol Specifies which RPG dialect to use, RPG 1 or 
RPG II. Entries: Blank or l. : 


Figure 3-1. Control Card Specifications Summary Sheet 


41 


o1 
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FORMS POSITIONING 


Since it sometimes becomes necessary to align special forms in the line 
printer before beginning to print a report, a 1 in column 41 will cause 
all output lines conditioned by the iP indicator to be printed more 
than once when the program is executed. Each time the lines are 
printed, the program is temporarily suspended to allow the operator 

to reposition the forms. Printing of the lines may be requested by 

the operator as many times as necessary to align the forms properly. 

If this field is left blank, 1P lines are printed only once. 


SOURCE INPUT DIALECT 


Burroughs RPG supports two dialects. RPG 1 dialect is compatible to 

IBM 360/20 RPG. RPG II dialect is compatible to IBM System/3 RPG II. 
Both dialects support Burroughs optional extensions. The RPG II dialect 
is assumed by defauit. if it is required to use RPG i features, a 1 
must be entered in column 51 of the control card, otherwise this column 
should be blank, The source program is not checked against the syntax 
of the chosen dialect; this option is only used to resolve conflicts 
between the dialects. Providing there is no conflict, RPG II features 
can be used when RPG i diaiect is specified and vice versa, 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


FILE FORMAT — 


SEQUENCE 
END OF FILE 
FILE DESIGNATION 


RECORD ADDRESS TYPE 


RECORD ADDRESS 
FIELD LENGTH 


FORM TYPE PROCESSING MODE . 


FILE TYPE 


RECORD 
LENGTH 


BLOCK 
LENGTH 


KeY FIELD 
STARTING 
LOCATION 


H 
t + 7 
i 
: a 


Gap Tf 


’ 
M 
A. Contains name unique in tne first 7 characters for M. 
every file to be used, 
B. 15 Specifies how each file is to be used. Entries: I, N. 
Oo, U, C, or D, 
Cc. 16 Describes the use of input, update, and combined 
files. Entries: Blank, P, S, C, T, or D, oO. 
D, 17 Specifies which files are to be checked for End-of- 
File during multifile processing. Entries: Blank or E, 
Pp. 


E. 18 Specifies the order matching fields are to be 
checked, Entries: Blank or A, or D. 


F. 19 Specifies whether the file contains fixed- or vari- Q. 


able-length records. Entries: Blank or F, or V. 
G. 20-23 Specifies the block size. Entry is device dependent. R. 
HH. 24-27 Specifies the record size, Entry is device dependent, 
I. 29-30 Specifies the length of the key field. Entries: 1-99, Ss. 
right-justified. 
J. 31 Describes the format of the keys within the records, Ts 


Entries: Blank, K or A, P, or N, 


K. 32 Identifies how a file is to 
multiple buffers are required, 


be accessed or whether 
Entries: I, 1-9, or Blank. 


L. 33-34 Specifies the overflow indicator used to condition 
records, Entries: OA-OG, OV or Blank. 
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Figure 4-1 


EXTENSION CODE 


NOT USED 
FILE CONDITION 
TAPE REWIND 
NOT USED 
FILE ADDITION/UNORDERED 


FILE ORGANIZATION TYPE 
OVERFLOW INDICATOR 


DEVICE 


35-38 Specifies the key field starting position in each record 
for indexed files. Entries: 17-4095, right-justified, 


39 Indicates whether an output table or array file will be 
further described on Extension or Line Counter Specifications. 
Entries: E, L, or Blank, 


40-46 Identifies the input/output device to which each file 


is assigned. Entries: READER, MFCU1, MFCU2, PUNCH, PRINTER, 
PRINTR2, TAPE, DISK, CONSOLE, BSCA, DATACOM, 
53 Entries only meaningful to the B 1700. Entries: U (un- 


labelled file), F (special forms), or B (printer backup). 


60-65 Specifies number of bytes of memory to be 
for an index. Entries: 1-9999 right~justified, 


66 For sequential or indexed disk files it specifies addi- 
tion to existing file or unordered records to be loaded, 
Entries: A, U, or Blank, 


70 Specifies action to be taken during close of the file 
(tape and disk files). Entries: P, U, N, R, or Blank, 


71-72 Indicates whether file is to be conditioned by an 
external indicator, Entries: U1-U8 or Blank, 


set aside 


File Description Specifications Summary Sheet 
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FILE DESIGNATION 


This field is used to further describe the use of input, update, and 
combined files. It must be left blank for all output files (includ- 


ing display files), except for chained output files. Acceptable 


entries for this field are: 


——— oe eee ee 
Entry Definition 


Output file. 
Primary sequential file. 
Secondary sequential file. 


Chained (random) file. 
Input table file. 
Demand file. 


Pp Primary File 


A primary file is the principal file from which the program reads 
input records, and may be designated as input, update, or combined. 
Derawer DDT wnrnnrnam wi1i8G + hen ~nav fa = 11 
aivedwiy aur Yt U4 Ail LUD & na ve one ana only one pr imar y i ile 3 ALL 
primary files described after the first one named are considered 
to be terminal errors. The primary file must be declared before 


any secondary files or a warning message is emitted. 


If there is no P entry in the File Description Specifications, a 
warning message is emitted and the first S (secondary) file de- 
fined is assumed to be the primary file. When no primary or 
secondary files are present, a syntax error is emitted. 


a] 


econdary Fiies 


nm 


Secondary files are all files other than the primary file involved 
in record selection during multifile processing. Note that this 
excludes table, chained, and demand files. These files are pro- 
cessed in the same order in which they are written in the File 
Description Specifications. A secondary file must be an input, 
update, or combined file. 


C Chained File 


A chained file may be an input, output, or update file assigned 
to a disk that uses the CHAIN operation code to read or write 
records randomly. Chained indexed files may only be input or 
update. 


T Table File 


A table file is a sequential input file that contains vector 
entries which can be read into the program during pre-execution- 
time. Only pre-execution-time vector files are described on the 
File Description Specifications form. Pre-execution-time vectors 
must be described on the Extension Specifications form. 
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SEQUENCE 


This field is used only by primary and secondary files to indicate 
whether or not the program is to check the sequence of the input records. 
The Input Specifications form (columns 61-62) must be used to specify 
the match fields within the input file records. This entry must be 

left blank for ail files other than primary and secondary files. Ac~ 
ceptable entries for this field are: 


Blank Records with matching fields 
are to be sequence~checked in 
ascending order. 


Records with matching fields 
are to be sequence-checked in 
descending order. 


Sequence checking is performed when matching fields have been specified 
for the records ina file. If a record from a matching input file is 
found to be out of sequence, the program halts. If the program halts, 
the operator may make one of the following entries: 


Console Message 


<mix index> AXGO Ignore the record out of sequence 
and read the next record from the 
same file. 


| | 

i 
|<mix index> AXSTOP | Ignore the record out of sequence, ! 
| | turn on the LR indicator, and per- | 
| | | 
| | | 


form all final detail and total 
calculation procedures. 
| <mix index> DS Discontinue the program. | 
All sequence checking is performed according to the EBCDIC collating 
sequence (see Appendix B). If any matching file specifies descending 
(D) sequence, all files must specify descending sequence. 


FILE FORMAT 


This field specifies whether the file contains fixed- or variable-length 
records. Variable~length records may not be specified for files other 
than those assigned to tape. The acceptable entries are: 


Ye ote gag ae oe ae ie ee an a ee ee eel 
Entry Definition | 
Blank | | 


Fixed record length. 


| 
| 
| 
| 
| 
| Variable record length 
| (tape files only). 


28 


31 


| | ueng | 
| All Printers | 132 | 
| All Disk | | 
DATA 96, MFCUl1, 
MFCU2 


All other devices 


For a fixed-length file, the length of one block and one record must be 
entered in the BLOCK LENGTH and RECORD LENGTH fields respectively. The 
BLOCK LENGTH must be an integral multiple of the RECORD LENGTH. For un- 
blocked files (note that card and printer files are unblocked), the 
BLOCK LENGTH will be equal to the RECORD LENGTH. For card and printer 
files, the RECORD LENGTH specified may be less than the maximum record 
length for the device, e.g., printer files may be specified as 96, 120, 


aw 19O vAhamavntane Sa PAn oth 
OY sz2ve Characters ifi zs tii, 


Variable-length records (tape files only) will be defined later, 
PROCESSING MODE 


Any entry in this fieid is not used by the compiler and should be left 
blank. Any entry other than blank or R is treated as an error for a 
disk file. For non-disk files this field must be blank, 


RECORD ADDRESS FIELD LENGTH 


This field applies only to indexed files. It specifies the length of 
the key field within the records of the file. All key fields in the 
file must be the same length. The key length must not be greater than 
28 characters. The numeric entry must be right-~justified within the 
field. Leading zeros may be omitted. The length entered is always the 
number of bytes occupied by the key field. 


RECORD ADDRESS TYPE 


This field applies to indexed disk files and describes the format of the 
keys within the records of the indexed file. The acceptable entries are: 


Definition 
Blank Not indexed, 
K, A Alphanumeric. 
p | Packed, 
N | All numeric data in | 
| | alphanumeric format. 
ee ee | i NEI UO eee Bk) 


Direct 


A direct file is a randomly organized file whose records have been 
created in a specific location within the file, not one after the 
other as in a sequential file. 


When a record is written to a direct file, the MCP checks to see whether 
the area to which that record belongs aliready exists. For example, if 

a file has 1000 records per area and 10 areas (a maximum of 105 areas 
may be specified), a write of record number 1500 will write into area 
number 2, a write of record number 6005 would write into area number 7, 
etc. If the area exists, the record is written in the appropriate po- 
Sition. If not, space for the new area is sought. Therefore, a file 
containing few records could utilize many of its file areas on disk, 

if the records are scattered, 


The advantage of blocking is partially lost on a direct file. As 
records are created in random sequence, it is highly unlikely that 

more than one record in a particular block would be created before 

a record from a completely different part of the file causes the buffer 
to be overwritten. 


The position in which the particular record is to be created is de- 
termined by the value of a "key". This value specifies a record 
number, relative to the first record position in the file, of the 
record to be created. For example, if the value of the key is 6, then 
to determine where that record will be written, multiply the record 
length by 6, and add the result to the base address of the file (this 
is done automatically by the MCP), giving the address of the record 
number 6, 


File Accessing Methods 


B 1700 RPG files may be accessed in three ways: sequential, direct, or 
indexed-sequential. The manner in which a file is accessed need not 
have any bearing on the way in which the file was created (organized). 
Once the file has been created the user need not be concerned as to 

the type of file organization. 


File accessing methods for the B 1700 are discussed in the following 
paragraphs, 


Sequential 
A file created either sequential or direct may be accessed sequentially. 


Sequentially accessing a sequentially organized file will simply access 
the records in the order in which they were created, that is, one after 
the other, 


Sequentially accessing a randomly organized file will access the records 
one after the other, regardless of whether the record had ever been 
created or not, provided the disk space for that area has already been 
assigned, That is, records which have never been created will be ac~ 
cessed, and whatever information happens to be in that record area, 

from the previous time that space was used, will be read as the record 
contents. 


4-10 


An indexed file may be loaded in ascending key sequence or unordered, 
If unordered, a U must be placed in column 66 of the File Specifica- 
tions. Files loaded unordered will be sorted in sequence according 
to the key field prior to End-of-Job. 


Additional I/O Areas 


The use of additional I/O areas (additional buffers) for a file increases 
the efficiency of the program when it is executed; however, it also in- 
creases the size of the program. A good balance between increased 
efficiency and increased size must be reached in order to achieve the 
greatest throughput from the system when programs are run in a multi- 
programming environment. 


Additional 1/0 areas cannot be used with table, combined, display, or 
demand files, nor with indexed accessing of disk files. 


33-34 OVERFLOW INDICATOR 


This field applies only to files assigned to the printer, and is used 
to specify the overflow indicator used to condition records being 
printed in the fiie. Each printer file must have a unique overflow 
indicator assigned to it, if overflow printing (i.e., the printing of 
Special lines when the overflow line is reached) is desired for that 
file. Acceptable entries for this field are: 


Definition 


Specified indicator is 
used to condition records 
in the file. 


| Blank Default to OF or OV acu 
| cording to entry in 
columns 40-46 (DEVICE). | 
If this field is left blank for any printer file, except PRINTR2 and 
PRINTUF, OF will be assigned (by default) as the overflow indicator. 


If this field is left blank for a PRINTR2 or PRINTUF file, OV will be 
assigned (by default) as the overflow indicator. 


| 
| 
| 
| 


If this field is left blank and the appropriate indicator (OF or OV) 
is not used to condition output, then no overflow indicator will be 
assigned to the file. Overflow will be handled automatically by the 
RPG object program. 

If this field specifies an overflow indicator but no output is condi- 
tioned on that indicator, overflow will not be handled automatically; 
a continuous listing will be produced, 


Specific lines on output will be printed when an overflow condition is 
reached if the overflow indicators, whether specified or assigned by 
default (OV or OF), are used to condition them on output. 


Any card device name (i.e., READER, PUNCH, MFCUI1, etc.) is considered 
only to denote a card file. The actual type (input, output, combined) 
is determined by the entry in column 15 of the File Specifications. 
Table 4-4 lists the devices available for each of the file types. 


Table 4-4. Device Assignment for Files 


Devices 
Primary or Secondary MFCU1L or MFCU2 
Input Files READER 
DISK 
TAPE 
Demand Files Card MFCU1 or MFCU2 
| READER 
Disk DISK 
Table Files | Card | MFCU1 or MFCU2 
| READER 
| Disk DISK 
| Tape | TAPE 
Chained Input | Disk | DISK | 
Files | i 
{a t ___—_ 
| Update Files _ Disk _ DISK | 
| | oe 
| Combined Files Card MFCU1 or MFCU2 
| Output Files | Card | MFCU1 or MFCU2 
| | PUNCH 
Disk DISK 
Listing PRINTER, PRINTR2 


Display File Listing CONSOLE 


The B 1700 will also accept the following additional device names in 
columns 40746: 


READO1 PUNCH20 
MFCM1 PUNCH42 
MFCM2 PRINTUF 
READ20 PRINTLF 
READ40 DISKI1 
READ42 DISK11F 
CRP DISK45 
CRP20 SPO 
DATA96 


Figures 4-4 through 4-7 are File Description Specifications coding ex- 
amples for MFCU, console, printer, and tape files. 
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FILE FORMAT 
RECORD ADDRESS TYPE 
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FILE DESIGNATION H FIELD LENGTH [1 
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Figure 4-6. Device Coding Example - Printer Files 


FILE DESCRIPTION SPECIFICATIONS 


FILE FORMAT 
RECORD ADDRESS TYPE 
SEQUENCE FILE ORGANIZATION TYPE 
END OF FILE RECORD ADDRESS GVERFLOW INDICATOR 
FILE DESIGNATION FIELD LENGTH | r 
FORM TYPE FILE TYPE PROCESSING MODE EXTENSION CODE LABELS —y Fi 
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Figure 4-7. Device Coding Example - Tape Files 


60-65 


CORE INDEX 


This field is used only by files accessed using the CHAIN operator (i.e., 
indexed-sequential files) to specify the number of bytes of memory to 

be set aside for indexes. The entry must be right~-justified, and 
leading zeros may be omitted. The maximum size that may be entered 

is 9999, 


At Beginning-~of-Job, the core index is built in memory to speed the 
access time to process the file. The number of keys contained in 
memory is determined by taking the key length as specified in columns 
29-30 and dividing it into the core index as specified in positions 
60-65. The program then looks at the End-of-File pointer contained in 
the File Information Block to determine the total size of the file. 
The program divides the file into even partitions for the allowable 
number of keys in memory, and reads every nth record filling the core 
table in memory with just the data key fields. If no entry is made, 
a minimum (default) number of 10 of these keys (20 keys if the keys 
are in packed form) is automatically specified. 


Once the core index is built, the program will begin processing, As 

an access occurs, the code emitted will do a binary search of the core 
index to determine in which partition the record should be found. It 
calculates the lowest actual address and one greater than the highest 
to be used as the area to be searched for the record. At this point 
two techniques are possible. The program will always activate the disk 
SCAN operator first, then will revert to a binary search technique when 


necessary (see figure 47-8). 


Record 1 


Record 2 
Record 3 


L~7L Le 
[Record 55 
Record 56 


Core Index 


in Memory Indexed-Sequent ial 
File on Disk 
(60 Records) 


Figure 4-8, Core Index Selection of Data Keys 


If column 15 contains an I and column 66 is blank, records of an 
indexed file are read without adding new records or updating 
records. 


If column 15 contains an I and column 66 contains an A, records 
of an indexed file are read and new records are added to the file 
that are not presently there. No updating is performed. An ADD 
entry is required in columns 16-18 of the Output Specifications. 


If column 15 contains a U and column 66 is blank, records of an 
indexed file are updated without adding new records. 


If column 15 contains a U and Column 66 contains an A, records of 
an indexed file are updated and new records are added to the file. 
An ADD entry is required in columns 16-18 of the Output Specifica-~ 
tions. 


Figures 4-9 through 4-12 illustrate coding methods for disk files on 
the File Description Specifications. 


TAPE REWIND 
This field specifies the action to be taken during closing of the file, 
and includes the provision for rewind and/or lock for tape reels, where 
desired. Valid entries are: 


i 3.5 8 We eo ne ea, te = 
| Entry | Definition | 
Pp 


| Close with purge. 


t i 
| | 
| U | Close with unload (lock). | 
N Close with no rewind. | 
Blank Close with release. | 


Close with remove. 


To show the effects of the various options, each type of file is dis- 
cussed separately in the paragraphs that follow. 


Card Input 


All options are ignored. The input areas are released and the unit is 
returned to the MCP, 


Card Output 


All options are ignored. The output areas are released, the trailer 
label is punched, and the unit is returned to the MCP, 
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RECORD ADDRESS TYPE FILE CONDITION 
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RECORD ADDRESS TYPE 


RECORD ADDRESS 
FIELD LENGTH 


PROCESSING MODE 


FILE CONDITION 

TAPE REWIND 
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EXTENSION CODE 


FORM TYPE 


BLOCK }| RECORD 


DEVICE 
LENGTH | LENGTH 


KEY FIELD 
STARTING 
LOCATION 


CHAIN ~ DIRECT 


niles ‘1 

me CANE TN 
ANAUNUINANUN UB ANN 
ANNAACINAANANIE BREAN 
NAAN 
ANIKI AAA BRARNNNI 


GI40I7 


Figure 4-11. Processing Methods of Disk Files - By CHAIN 


Printer Output 


All options are ignored. A page is ejected, a trailer label is written, 
and the printer is returned to the MCP. 


Disk Files 


The effects of the various options assigned to disk are described in 
terms of "old files" and "new files". An old file is one that already 
exists on disk and appears in the MCP Disk Directory. A new file is 
one created by the program, and does not appear in the Directory. A 
new file may only be referenced by the program which creates it. 


Effect 


An old file is removed from 
the disk and deleted from the 
Directory, or a new file is 
removed from disk. 


U For an old file, the file re- 
mains in the Directory and is 

made available. A new file is 

| 

| 


entered in the Directory (there- 
by making it an old file) and 
made available. 


N Use of this option is not 
permitted with disk files. 
Blank Same as for U. 
R An old file is removed from the 


disk and deleted from the Di- 


71-72 FILE CONDITION 


This field applies to input (excluding table input files), update, 
output, and combined files, and indicates whether or not the file is 
conditioned by an external indicator. The entry indicates (at execu- 


+4 +4 ‘N hath + ¢h 4 + 
tion time) whether or not the file is tc be used by the program. If 


a file is conditioned by an external indicator, the file is used only 
when that indicator is ON. When the indicator is OFF, the file is 
treated as though End-of-File had been reached, and no records may be 
read or written into the file. Valid entries for this field are: 


Entry | | Definition | 


Ul-uU8 | The specified external indicator 
| is used to condition the file. 


| 
{ | 
| Blank | The file is not conditioned by | 


| an external indicator. 


> 
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The following figures are RPG coding examples for indexed and direct files. 
Figure 4-13 illustrates the updating of an existing file; figure 4-14 illus~ 
trates the creation of a new file, 
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DRE-EXECUTION-TIME VECTORS 
For a pre-~execution~time vector load, the data to be loaded is read into the 


program storage area reserved by the entries in the Extension Specifications 
at the beginning of object program execution, before the normal onerations in 


| — KenlatatateRentateat =) ww de —ae 


the program cycle begin. The data for each vector is placed in a file, identi- 
fied by the names assigned in the File Description Specifications. 


More than one vector may be loaded from the same file. Short vectors are not 
allowed with pre-~execution~time vector loads. 


DYNAMIC/EXECUTION-TIME VECTORS 


Dynamic vectors are loaded during program execution through entries in the 
Input Specifications or Calculation Specifications. Certain fields of input 
records or the results of calculation operations may be used to load the ele- 
ments of a dynamic vector. Such loading, unlike the automatic loading of 
compile-time and pre-execution-time vectors, is completely under programmatic 
control. 


All vectors are able to be altered during program execution, regardless of 
when they were loaded initially. Because of this, all vectors may be con- 
sidered to have "dynamic'' characteristics. 


EXTENSION SPECIFICATIONS 


All vectors in a program must be described on the Extension Specifications 
sheet. Certain entries are required for all types of vectors, regardless of 
the time at which they will be loaded (see figure 5-1). Columns 27-45 must 
be completed for each vector (columns 46-57 if the vector is loaded in 
alternating format with another vector), These columns specify the name 
assigned to identify the vector (VECTOR NAME), the number of vector elements 
occurring in each input record (ENTRIES PER RECORD), the size of the vector 
(ENTRIES PER TABLE OR ARRAY and LENGTH OF ENTRY), whether the input data is 
in packed decimal format (PACKED), the number of decimal positions in each 
entry (DECIMAL POSITIONS), and the order in which the elements are sequenced 
(SEQUENCE). 
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Figure 5-1. Entries Necessary to Describe a Vector 
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EXTENSION SPECIFICATIONS 


SEQUENCE 
DECIMAL POSITIONS 


PACKED 
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11-18 Contains the name of a pre~execution 
time vector file. 


19-26 Contains the name of the file to 
which vector will be outputted. If blank, 
vector not to be output at EOJ. 


27-32 Contains the name of the input table 

or array. Entries: TABXXX (X=any alphanumeric 
character) or 1-6 aiphanumeric characters. 

Also used to name the first of two alternating 
vectors. 


33-35 Specifies the exact number of entries 
contained in each vector input record. 


36-39 Specifies the maximum number of items 
contained in the first vector named, Entry 
maximum: 4095, right-justified. 
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Figure 5-2, 
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40-42 Specifies the length (in bytes) of 


each element in the vector. Maximum num- 
eric entry is 31, maximum alphanumeric entry 
is 511, right-justified. 


43 Specifies if the external vector elements 
are in packed or unpacked decimal format. 
Entries: Blank or P. 


44 Specifies the number of decimal positions 
contained in each element. Entries: Blank 
or O-9,. 


45 Specifies the sequence in which elements 
will be loaded for the first vector. 
Entries: Blank, A or D. 


46-57 These columns are used to describe 
the second of two alternating vectors. 
Entries are of the same type as specified 
for the first vector. The second vector 


is loaded in alternating format with the first. 


Extension Specifications Summary Sheet 


FROM FILENAME ENTRIES PER RECORD 


40-42 


43 


Pre-Execution Time 


| 
| Dynamic/Execution Time | Blank | Bliank | 


Compiie-Time ee a | Blank | Filled | 


Filled | Filled 


ENTRIES PER VECTOR 


This field is used to specify the maximum number of elements that can be 
contained in the vector named in the first VECTOR NAME field (columns 
27-32). A maximum of 4095 elements per vector is allowed. For vectors 
to be loaded in alternating format, this number also applies to the one 
named in the second VECTOR NAME field (columns 46-51). Entries in 

this field must be right-justified; leading zeros may be omitted. 


LENGTH OF ENTRY 


This field is used to specify the length (in bytes) of each element in 
the vector named in the first VECTOR NAME field (columns 27-32). For 
numeric vectors in packed decimal format, enter the number of digits. 
Entries in this field must be right-justified; leading zeros may be 
omitted. 


Numeric items in the vector input records must have leading zeros 
added if their length is less than that specified; alphanumeric entries 
must have either leading or trailing blanks. 


The maximum length of a numeric vector element is 31 characters; the 
maximum for an alphanumeric vector element is 511 characters. How- 
ever, an element must be completely contained on one record; therefore, 
input record sizes will also limit the maximum element sizes. 


PACKED 


This field specifies the external format of the vector elements. Ac-” 
ceptable entries are: 


| Entry | Definition | 


Vector elements are in 
either unpacked decimal 
or alphanumeric format. 


Vector elements must be 
in packed decimal format. 


Any vector (including compile-time vectors) may be packed and may 
be either right or left signed (as specified in the Control Card or 
by the dollar option RSIGN). 


Vectors specified as occurring in alternating format have related 
elements contained in alternating format on each input record (see 
figure 5-3). The two vectors need not be of the same size (LENGTH OF 
ENTRY) , type (numeric or alphanumeric), or sequence order, but they 
must have the same number of elements contained on each input record, 
and each vector must contain the same number of elements (NUMBER OF 
ENTRIES PER TABLE OR ARRAY). Each pair of elements on the input record 
is considered one entry. The first element of each pair belongs to 

the vector described in columns 27-45; the second element belongs to 
the vector described in columns 46-57. 
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Figure 5-3. Vectors in Alternating Format 


58-74 COMMENTS 


This field is available for inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 


757-80 PROGRAM IDENTIFICATION 
Refer to Section 2 for a complete description. 
VECTOR LOADING 
How a vector will be loaded depends on the entries made on the Extension 


Specifications. The following paragraphs describe loading for compile time, 
pre~execution time and dynamic/execution time vectors. 


PRE-EXECUTION TIME VECTOR LOAD 


To load a pre-~execution time vector, the data to be loaded must be placed in 
the file described in the File Description Specifications to which the vector 
is assigned (FROM FILENAME). Data is read in at the beginning of program 
execution and placed in the vector until the vector is full. If more than one 
vector (not in alternating format) is assigned to a single file, some special 
considerations must be taken into account (see figure 5-6). Vectors are still 
loaded in the same order that they are specified in the Extension Specifica- 
tions, so that files will be opened, read, and closed as necessary to load 

the designated vectors. If two vectors are assigned to the same table file, 
and no other pre~execution time vector declaration comes between them, the 
data for both must be in the same card file. No separators are allowed be- 
tween the data decks, so that restrictions are imposed the same as those for 
compile-time vector loads. 
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Figure 5-6. Pre~Execution Time Vector Load 
DYNAMIC/EXECUTION TIME VECTOR LOAD 


To load a dynamic vector, the data elements may be obtained from fields within 
input records or from the result of operations in the Calculation Specifications. 
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Figure 5-/. Dynamic Vector Load (Sheet 2 of 2) 
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LINE COUNTER SPECIFICATIONS 
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7-14 Specifies the name of a printer file. 


15-17 If 18-19 contains FL, this entry specifies 
the length of the page. If 18-19 are numeric, 
this entry specifies the number of lines from 

the top of the page to associate with that channel 
number. Entries: 17-112, right-justified. 


18-19 Designates the use of the numeric entry in 
columns 15-17. Entries: FL or 17-12, right-justified. 


20-22 If 23-24 contains OL, this entry specifies 

the line number of the overflow line. If 23-24 

are numeric, this entry specifies the number of 
lines from the top of the page to associate with 
that channel number. Entries: 1-N, right-justified 
(N=entry in 15-17). 


23-24 CHANNEL NUMBER associated with the overflow 
line designated in columns 20-22. Entries: OL or 
1-12, right-justified. 


25-74 CHANNEL NUMBER related to prece@ing LINE NUMBER 
entry. Entries: 1712, right~justified LINE NUMBER 
designates a particular line on each page. 

Entries: 1-N, right~justified (N=entry in 15-17 

or the default length 66). 


Figure 6-1. Line Counter Specifications Summary Sheet 
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FILE DESCRIPTION SPECIFICATIONS 
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Figure 67-3, Overtiow Coding Example Z 
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LIST1 specifies channel 1 as line 10 and channel 12 as line 50. 
LIST2 specifies the form length (50 lines) and channels 1 and 12. 


LIST3 specifies the form length (80 lines) and the overflow line 
(line 60). 


Figure 6-4. Line Counter Specifications Code Example 


75-80 PROGRAM IDENTIFICATION 


D.. fA. hn a= ah na mam TA =~ Aa aw aman an 
neter tG Sec for a complete description. 


Burroughs B 1700 RPG 


PROGRAMMER 
12 75 80 
pace | | | CONTROL CARD SPECIFICATIONS PROGRAM ELT] 
on he ee 
FORM TYPE fe ae 


A. 6 Change entry to the letter T. 


B. 7-14 Contains the name of a DATACOM file entered 
on the File Description Specifications. 


C. 16 Specifies if the file is to be transmitted or 
received. Entries: Tor R. 
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Figure 7-1. Telecommunications Card Specifications Summary Sheet 


16 TRANSMIT/RECEIVE 


Acceptable entries for this field are: 


Definition 


Transmit messages. 


Receive messages. 


If T is specified, messages will be transmitted from the DATACOM file 
to the corresponding NDL file. The file must be an output or com- 
bined file and should appear on the Output~Format Specifications. 
Combined files must alternatingly transmit and receive, 


If R is specified, messages will be received from the NDL file into 
the DATACOM file. The file must be an input or combined file and 
should appear on the Input Specifications. Combined files must 
alternatingly receive and transmit. 


17 TYPE OF LINE CONTROL 


This field is unused. Any entry other than Blank or T will be given a 
syntax error. 


18 TRANSMISSION CODE 


This field is unused. Any entry other than A, U, E, or blank will be 
given a syntax error. 


60 


63-63 


LAST FILE 


This field is unused. Any entry other than L or blank will be given 
a syntax error. 


This field is unused and may contain any alphanumeric or biank entry. 
The entry should reflect the entry in the corresponding NDL file. 


RECEIVE ADDRESS 


This field is unused and may contain any alphanumeric or blank entry. 
The entry should reflect the entry in the corresponding NDL file. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


Burroughs B 1700 RPG 
PROGRAM ID PAGE OF 
PROGRAMMER DATE 
i INPUT SPECIFICATIONS PROGRAM 2 a 
PAGE [I] OPTION IDENTIFICATION SRRGES 
NUMBER RECORD IDENTIFYING tNDICATOR PACKED MATCHING FIELDS OR CHAINING FIELOS 


FORM TYPE SEQUENCE 


STACKER SELECT 


RECORD IDENTIFICATION CODES 
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DECIMAL POSITIONS CONTROL LEVEL: 


FIELD 
INDICATORS 


FIELD NAME 


(VARIABLE 


HI K M N OP QRS 
Ae 7-14 Contains a filename specified not present. Entries: Blank or N, N. 59-60 Contains the control level 
Petes File Description Specifica- 26, 33, 40 (Specifies what part of indicator. Entries: Blank or L1-L9, 
° the code character in columns 27, 34, O. 61-62 Specifies sequence checking for 
B. 14-16 Puts the record identification or 41 is to be read. Entries: CC a single input or combined flle or 
codes in an AND or OR relationship. the entire character, Z~- the zone sequence checking with matching 
Entries: AND or OR, portion, D - the digit portion). records for two or more input and/or 
C, 15-16 Specifies if records are to be 27, 34, 41 (Contains the code char Gee Tateas: Gnbelens: “Eraar oe 
processed ina predetermined se- acter. Entries: Any EBCDIC char- i ; 
quence, Entries: 01-99 or any acter). P. 63-64 Contains one of the following 
alphabetic character. H. 42 Specifies which stacker will be ces oto relations indicators or 
‘ ok : ank: 01-99 (record identifying 
D. 417 If sequence is specified, the used. Entries: Blank or 1-6. fi _ ext 
Suves Andieates the wonber-ck indicator), L1-L9 (control level in 
acre GE Gael -vue inc Beauence I. 43 Specifies if numeric input is in dicator previously defined), MR 
me Entries: sy oe N a packed or unpacked decimal format. (matching record indicator), U1-U8 
. Ps : ° Entries: Blank or P. (external indicator), or HO-H9 (halt 
Pe Se sa aaa Tee ee ee J. 44-47 Contains the left-most posi- indicator). 
ae OD P ° : tion of the input field. Entries: Q. 65-66 Used to indicate if the speci~ 
‘ numeric, right~justified. fied field is greater than blank or 
F. 19-20 Contains either a record K. 48-51 Contains the right-most posi- positive. Entries: Blank, 01-99, 
identifying indicator (01-99), a : : ; : HO-H9. 
‘ tere = tion of the input field. Entries: 
control level indicator (L1-L9), a MUmeSiC. raphee iusbitied 7-68 U eee Oe ee. eA 
halt indicator (H1-H9), or specifies ae Tee . Re 67 : a to ee ae ; speci 
look ahead records (**). L. 52 Contains the number of decimal te ss es ee oi ad 
= sha a : positions for numeric fields. 2 7 , “2 ? 
G. 21-41 Record Identification Codes: Ritvies> Blank or 0-9. HO-H9, 
21-24, 28-31, 35-38 (specifies the _ as : S. 69-70 Used to indicate if the speci- 
position within the record that con- Ms ei pa enter pastes oie eran oa fied field is blank or zero. Entries: 
tains a record identification code. er paany 2 ? . Blank, 1-99, HO-H9. 
Hein = Pr justified) or one of the special > ’ 
Entries: Blank or 1-N where N = : ; 
record length). field names, PAGE, PAGE], PAGE2, 
UDATE, UMONTH, UDAY, UYEAR, TABXXX 
25, 32, 39 (indicates if the charac— (X=any alphanumeric character). 
ter in columns 27, 34, or 41 is or is 
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Figure 8-1. Input Specifications Summary Sheet 


15-16 


17 


SEQUENCE 


This field is used to specify a special sequence to different record 
types ina file. If this field contains an alphabetic entry (note 
that this includes a blank entry, although a warning will be emitted), 

ies that the record types need not be in any spneciai order. 
Within each file, all record types having alphabetic entries in the 
SEQUENCE field must be specified before those with numeric entries. 
All chained and demand files must have an alphabetic entry in this 
field. 


When coding this field the programmer must not use the alphabetic 
entries ND or Rb (b equals blank), because the compiler may mistake 
them for the ND or R of an AND or OR line. 


If this field contains a numeric entry, it indicates that sequence 
checking is to be done. The order of precedence is the sequence in 
which the records are declared on the Input Specifications. This 
allows the programmer to specify that one record type must appear be- 
fore another record type within a sequenced group. The program will 
automatically check the designated order as the records are read. 


The first sequenced record type specified must have the iowest sequence 
number (01), the next record type should be given a higher number, etc. 
Gaps in sequence numbers are allowed, but the numbers used must be 

used in ascending order. 


If a record is encountered that is out of sequence, the program will 
halt. The system operator can order the program to resume, at which 
time it will ignore the record that is out of sequence and read the 
next record from the file. 


Records in an AND or OR line cannot have a sequence field entry; the 
entry from the previous line also applies to the line with the AND or 
OR entry. 


In the example shown in figure 8-3, the input file PRCARD contains two 
record types which are to be sequence checked. Each group of input 
records of the input file PRCARD must contain exactly one of the first 
record type which may be followed by any number of records of the 
second type. A record identifying indicator of Ll is assigned to the 
first record type, so that a control break will occur each time the 
first record of a new group is read. 


NUMBER 


This field is used only if sequence checking is to be done (i.e., the 
SEQUENCE field contains a numeric entry). An entry in this field in- 
dicates whether more than one record of the designated type may appear 
in each group of a sequenced input file (see figure 8-3). Valid 
entries for this field are: 


19-20 


Records in an AND or OR line cannot have an OPTION field entry; the 


ant £ +h i i j i i 
entry from the previous line also applies te the line with the AND or 


OR entry. Valid entries are: 


| Entry Definition | 
| eee eN er amd (ne vec Re 


| Blank | Record type must be present in | 
| each group. | 


0 Record type is optional, and 
may not be present in each group. 


If all record types in a file are designated as optional, no sequence 
errors will be detected. 


RECORD IDENTIFYING INDICATOR 
This field may be used for two purposes: 
a. To assign an indicator to each record type. 


b. To indicate look-ahead fields. 


Definition 


Record identifying indicator. 


Control level indicator. 


LR Last record indicator. 
HO-H9 Halt indicator, 
| eK | Look-ahead field, 


If this entry is blank a warning will be emitted. The various in- 
dicators are defined in the following paragraphs. 


Record Identifying Indicator 01-99 


Each input file may contain different types of records requiring 
different operations. Record identifying indicators are used to 
Signal to the rest of the program cycle the type of record just read. 
When a specific record type is selected for processing, its corres- 
ponding identifying indicator is turned ON. This indicator remains 

ON for the rest of the current program cycle and may be used to con- 
dition various calculation and output operations, as desired. All 
record identitying indicators are turned off at the same point in the 
program cycle. Each record identifying indicator should be unique 

and only one record identifying indicator may be ON for any one file 

at any one time. However, there may be more than one record identifying 
indicator ON at any one time, each one associated with a different file 
(i.e., through CHAIN or READ operations). 


Record identifying indicators do not have to be assigned in any order. 
If the same operations are to be performed on different record types, 
the same indicator may be assigned to more than one type. 


Record identifying indicators are not allowed in an AND line, but in- 
dicators may be specified for every record type that requires special 
processing in an OR relationsnip. 


103001 
102001 
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PRIMARY FILE SECONDARY FILE 
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Available for Look-Ahead: Two Input Files 


Look-~ahead fields may be specified for primary or secondary files only. 
One set of look-ahead fields may be specified per file and the field 
descriptions apply to all records in that file. 


For combined and update files, the look-ahead fields apply to the next 
record in the file only if the current record was read from some other 
file. Therefore, in a program which reads from one file only and that 
file is a combined or update file, look-ahead fields will apply to the 
current record, 


Figure 8-5 shows processing records from an update file and a secondary 
input file. 


Look~Ahead 
Record Processed Records Available 
U1 Ui Sil 
Sl U2 Ss2 
$2 U2 S83 
$3 U2 S84 
U2 U2 S84 
s4 U3 S85 
reys) Uso os 
S6 U3 S7 
U3 U3 S87 
U4 U4 S7 
S7 US $8 


At the time that the last record of a file is being processed, any 
look-ahead fields for that file will contain all nines, either signed 
numeric or alpha~numeric depending on the field type specified. 


RECORD IDENTIFICATION CODES 


When more than one record type is used within a file, only one record 
type will be selected for processing during each program cycle. The 
record identifying indicator for that record type will be turned ON 
when it is selected and will remain ON for the rest of the current 


program cycle. 


In order to identify the various record types to the program for the 
purpose of record selection, each record type must have a unique code 


assigned to it. 


This code consists of a certain character or combina- 


tion of characters occurring in certain positions of the record. 


The RECORD IDENTIFICATION CODES field is used to describe the code for 


each record type. 


If all records are to be processed alike regardless 


of their type, or if all records are of the same type, this field 
should be left biank. 


This field is subdivided into three subfields of seven columns each, 
allowing up to three code characters to be described on one line, 
The three subfields are taken to be in an AND relationship, and any 
that are not needed to specify code characters should be Left biank. 
Each of the three subfields is divided into four entries, and coding 
is the same for all three subfields. The subfields are discussed in 
the following paragraphs. 


21-24 ,287-31,35-38 


25,32,39 


POSITION 


These fields are used to give the locations in 

the record of each character in the record identi- 
fication code. Entries must be numeric, between 
one and the record length specified, inclusive, 
and right-justified (leading zeros are optional). 


NOT 
These fields are used to indicate whether the 


specified character must be present in the record 
at the designated position. Valid codes are: 


POSITION entry. 


| 
Character must not be present | 
| 


| 

{ 

| 

| in the location specified by 
_ the POSITION entry. | 


The zone of the plus (1) character is treated 
like the zone of the characters A through I, and 
the zone of the minus (7~) character is treated 
like the zone of the characters J through R, 
irrespective of the internal codes actually used 
for plus and minus. 


In figure 8-7, only the records of customers whose 
last names begin with the letters A through I will 
be processed since the zone portion of A is the 
same as for the characters B through I. The first 
letter of each last name begins in column 10, 


RECORD IDENTIFICATION CODES 
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In figure 8-8, 5-digit employee numbers are 
checked to see that all 5 digits are numeric, 
The zone for all numeric characters is the same. 


RECORD IDENTIFICATION CODES 


-LINE FILENAME | | | POSITION 


CHARACTER 
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Figure 8-8. C/Z/D Coding Example 2 


| Entry | Definition : 
| Blank Cards automatically go to 

| default stacker. 

| 

| Numeric Entry| Cards go into the stacker 
(1-6) specified. 

Do a a ee 


| 
| 
| 
| 
| 


Card types identified by OR lines may be stacker selected for a special 
stacker by an entry in this field; however, if the STACKER SELECT field 
entry is left blank, the card type selected by the OR line will go to 

the default stacker. AND lines may not have an entry in STACKER SELECT. 


At execution time, any record types specifying a stacker number higher 
than that available on the device being used will go to the default 
stacker. 


This entry should be left blank for input files with multiple I/0 
areas, otherwise a warning is emitted that the results may not be 
those the user intended. 


PACKED 


This field is used to specify that the external format of an input field 
is in packed decimal format. Valid entries are: 


{ 
Entry Description 
Blank | Field is in unpacked decimal | 
format or is alphanumeric. 


| 
| 
Pp | Field is in packed decimal | 


| 
| 
| format. 


NOTE 


96-column devices will not handle packed 
decimal format. 


Whether in packed or unpacked decimal format, the data may be signed 

at the most significant or least significant position as specified by 
means of column 17 of the Control Card or by use of the dollar option 
RSIGN. The object program automatically converts all numeric data in- 
ternally during execution to packed decimal format with the sign at the 
most Significant position. 

Unpacked decimal format means that each byte of disk/tape storage con- 


tains one character. Each byte is divided into a 4-bit zone portion 
and a 4-bit digit portion: 


| 
| zone digit | maa digit pinad Meaaas zone digit, 


Each digit portion holds one digit of the number. On conversion to 
packed decimal format, the zone portions are dropped, except for the 
sign position, 


52 


The length of a packed decimal field in digits (P in column 43) is 
2n-i, where n is the number of bytes occupied by the data as speci-~ 
fied by FROM and TO. 


If the FIELD NAME entry (columns 53-58) specifies an array name with- 
out an index, it is not necessary that the FROM and TO entries provide 
sufficient space for the whole array, as long as it is big enough for 
an integral number of array elements. The array will be read in from 
element 1 up to as many elements as will fit into the locations speci-~ 
fied. The decimal positions must contain the same entry as specified 


on the Extension Specifications for that array. 
DECIMAL POSITIONS 


This field is used to specify the number of positions to the right of 
the implied decimal point in a numeric field. This entry may not be 
blank for a numeric field; if the data field contains only integral 
values, a 0 should be entered to indicate no decimal positions. Valid 
entries are: 


Definition 


Alphanumeric field. 


Number of decimal positions 
in a numeric field. 


Any field to be used for arithmetic operations, or to be edited, must 
be numeric. The number of decimal positions specified cannot exceed 
the length of the field (as specified in the FIELD LOCATION field). 


FIELD NAME (VARIABLE NAME) 


This field is used to assign an identifier (name) to an input data 
field. All fields that will be referenced by the program must be 
named. Names must be assigned in accordance with the rules for form- 
ing field names as described in Section 2. A previously defined 
vector name may be used, which allows loading of the vector during 
input. Refer to Section 5 for a complete discussion of this method 
of vector loading. A separate line must be used for each field de- 
scription. 


All fields within one record type should have unique names; if two or 
more fields within the same record have identical names, only the last 
one defined is used. Fields from different record types may have the 
Samé name, but all names not uniquely defined must have the same 
length and data type (decimal position entry). These fields do not 
have to occur in the same location in each record. 


OR Relationship 


To eliminate duplicate coding of identical fields within different 
record types, the OR relationship may be used. The OR relationship, 
illustrated in figure 8-11, shows two record types which have identi- 
cal fields in the same record positions. Refer to columns 14-16 in 
this section. 


Special Words 


The following special words are reserved for use as variable names in 
columns 53758 of the Input Specifications: 

PAGE 

PAGE1 

PAGE2 


If page numbering is to be done on output, the special word "PAGE" 
(or "PAGE1", or ''PAGE2", for two more printer files) is used to indi- 
cate that page numbering is to be done. Page field coding is il- 
lustrated in figure 8-12. 


This feature allows a page number to be entered through a field in an 
input record, the field called "PAGE" (or "PAGE1" or "PAGE2"). The 
page number printed wiil be one greater than the page number contained 
in the "PAGE" field of the input record. A page field is incremented 
by 1 each time before it is printed. The field may be defined as any 
length, but it must contain zero decimal positions. Unless otherwise 
specified, it is assumed to be four digits in length with zero decimal 
positions (see figure 8-12). The “PAGE fieid may be used in cai- 
culations like any other field. 


The same "PAGE" entry (PAGE', "PAGE1", or "PAGE2") may be used for two 
different output files, but this is not recommended. 


Figure 8-12 is an example of PAGE field coding on Input Specifications. 
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Figure 8-13. Control Fields in Two Record Types 


Numeric control fields are treated as though they had no 
decimal positions. 


For numeric control fields, only the digit portion of each 
character is compared; thus, negative numbers are treated 
the same as positive numbers. 


All control fields with the same control level indicator are 
considered numeric if any one of those fields is described 
as numeric, 


Control fields are initialized to hexadecimal zeros. 


Total calculations and total output operations are bypassed 
until the first cycle following a cycle in which a record 
specifying control field is selected. This prevents a con- 
trol break from occurring the first time a record with control 
fields is read (the input control fields would usually not be 
equal to the value contained in the initialized control fields). 


Different record types in a file need not have the same number 


of control Ffiatac Howavar the usar must ancuro that unwanted 
a ae MN 8 aay ne em y = 


wa ww ven ee eo ae aa 


control breaks do not occur. 


c. <Any one portion of a numeric split control field may not 
exceed the maximum size for numeric fields as specified in 
Section 1; however, the total length of all fields assigned 
to one control level indicator (within each record type) 
may be as great as 255 characters. 


d. <A mixture of packed and unpacked control fields is allowed, 
p 


e. No other specification lines may come between lines de- 
scribing split control fields. 


61-62 MATCHING FIELDS 


This field is used to indicate matching fields and sequence checking. 
Valid entries are: 


Definition 


No matching is done. 


| M1~-M9 Matching to be performed when 

two or more input, update, or 
| combined files specify match- 
| ing fields. 


formed when only one input, 
update, or combined file 


| | specifies matching fields. 


Matching fields and sequence checking cannot be specified for chained, 
demand, or table files. The entry in this field designates: 


Sequence~checking to be per- | 
| 
| 
| 


a. Matching fields and sequence checking when two or more input, 
update, or combined files specify the same matching field 
value (M1-M9), or 


b. Sequence checking only, when only one input, update, or 
combined file specifies a matching field (M1-M9). 


Sequence Checking 


Matching field values allow sequence checking of records within a fiie 
when one or more primary or secondary file(s) specifies matching 
fields. As many as nine (MI-M9) fields within the record may be se- 
lected for sequence checking, When a record is encountered which has 
a field or fields out of sequence, the program will halt. When the 
system operator resumes program operation, the record in error is 
ignored and the next record from the same file is read. 


The following rules must be observed when assigning matching field 
values for sequence checking: 


a. All fields designated for sequence checking must be in the 
same order, either ascending or descending. 


b. When more than one field is designated for sequence checking, 
all fields specified are combined in order by ascending se- 
quence of matching field values and are treated as one con7 
tiguous field. 
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Match Fields from a secondary file. The matching field values (M1-M9) 
are used to specify which fields in each record are to be matched, and 
cause MR to turn ON when a match occurs. MI1-M9 are not indicators; 

MR is used to condition those operations that should be done only when 
records match. 


following rules must be observed when assigning matching field 
es: 


a. All Match Fields must be in the same sequence during input, 
because sequence checking is automatically done on all fields 
designated as matching fields. A sequence error in any field 
will cause a program halt. When the system operator resumes 
program operation, the record in error is ignored and the 
next record from the same file is read. 


b,. If matching is used, it is not necessary for all primary and 
secondary files to have Match Fields. Neither must all 
record types within a file have Match Fields. But at least 
one record type from two files must have Match Fields speci~ 
fied if the files are ever to be matched. 


c. All fields given the same matching field value (M1-M9) must 
be of the same length. 


d. Overlapping of different Match Fields within one record type 
is allowed; however, the length of any individual Match Field 
must not exceed 255 characters. 


e, All records to be matched should (not required) contain the 
same Match Fields (M1-M9); otherwise, a match may not be 
obtained. 


f. When more than one Match Field is designated for a record 
type, all fields specified are combined in order by ascending 
sequence of matching field values and are treated as one con- 
tiguous Match Field. M9 is high order. 


g. Split Match Fields are not allowed; thus, the same matching 
field value should not be used more than once in one record 
type, unless field record relation indicators are used, 


h. Numeric Match Fields are treated as though they had no 
decimal positions, 


1. For numeric Match Fields, only the digit portion of each char- 
acter is compared; thus, negative numbers are treated the same 
as positive numbers. 


j. All Match Fields with the same matching field value are con7 
Sidered numeric, if any one of the fields is numeric. 
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Figure 8-16, Coding Matching Fields 


The example shown in figure 8-18 illustrates the order in which re- 
cords with three matching fields are processed. 


PRIMARY FILE 


614050 


1ST SECONDARY FILE 2ND SECONDARY FILE 


Figure 8-18. Record Selection From Three Matching Files 


The files (figure 8-18) will be processed in the following order: 


Pl 


p2 ) 
181 
251 
282 


182 When records do not match, the lowest matching field is 
processed next. 


The MR indicator is ON since all Match Fields match, 


255 The MR indicator is ON. 287 is the last record processed. 
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Figure 8-19, Field Record Relations - Using the OR Relationship 


When two or more Control Fields or two or more Match 
Fields have the same control level indicator or matching 
field value, respectively, only one of these may not have 
a field record relation indicator assigned, (This applies 
to a group of specifications, if it is a split control 
field specification.) Thus, specifications with field 
record relation indicators are used if that indicator is 
ON; when none of the field record relation indicators are 
ON, only the specification without any field record re- 


Ie One : A 
lation indicator is used, 


L1-L9 , MR Control Level or Matching Record Indicator 


Certain fields may be used only when a special condition, 
such as a control break or matching records, occurs. To 
indicate the condition under which data will be accepted 
from a particular field, the control level (L1-L9) or 
matching record (MR) indicator is used. Data from the 
associated field will be accepted only when the specified 
indicator is ON. 


797-80 


The following rules must be cbserved when assigning and using field 
indicators: 
a. All field indicators are OFF at the beginning of the program, 


fawn +4 7 
and remain OFF until the condition being tested is satisfied 


on the input record just read. Note that if RPG 1 dialect is 
specified on the Control Card Specifications, all valid in- 
dicators used as zero or blank indicators will be initialized 
ON at the beginning of the object program execution, unless 
they are also used as record identifying indicators. 


A field may be assigned more than one indicator; however, only 
the indicator specified for the condition with a true result 
will be turned ON. All other indicators assigned to the field 
will be turned OFF. 


The state of a field indicator assigned to fields in different 
record types is always determined by the last record selected. 


The state of a field indicator assigned to more than one field 
within one record type is determined by the last field to 
which it is assigned. 


When different field indicators are assigned to fields in 
different record types, a field indicator will remain ON 
(or OFF) until another record of the same type is selected. 


If a halt indicator specified in the FIELD INDICATOR field 

is turned ON as a result of the corresponding condition being 
true, the program will halt after the input record which 
caused it to turn ON has been completely processed. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for 2a complete description. 
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Burroughs B 1700 RPG 
races 1D PAGE OF 
PROGRAMMER DATE 
A? CALCULATION SPECIFICATIONS 3 80 


nee ([) 


FORM TYPE CONTROL LEVEL 


INDICATORS 


FACTOR 1 OPERATION 


Contains one of the following control level indicators: 


LO-L9 (perform calculation at control break), LR (per- 
form calculation after the last record), SR (calcula- 
tion is part of a subroutine), AN, OR (establishes AND 
or OR relationships between indicators), or blank. 


9-17 Columns 10-11, 13714, 16-17 may contain up to 3 
indicators to condition a calculation operation. 
Entries: Blank, 01°99, LI-L9, LR-MR, HO-H9, U1-U8, 
OA-OG, or OV Columns 9, 12, 15 specify that the 
following indicator is to be off. Entries: Blank 
or N. 


18-27 Contains either the name of any user or compiler 
defined field, an alphanumeric or numeric literal, any 
subroutine, or TA@ name, or vector name, any special 
name, or blank. Entry must be left~justified. 


28-32 Specifies the type of operation to be performed. 
Entries: ADD, Z-~ADD, SUB, “-SUB, MULT, DIV, MVR, 
XFOOT, SQRT, MOVE, MOVEL, MLLZO, MHHZO, MLHZO, 

MHLZO, COMP, TESTZ, BITON, BITOF, TESTB, SETON, 

SETOF, GOTO, TAG, ZIP, LOKUP, BEGSR, ENDSR, EXSR, 
FORCE, EXCPT, DSPLY, READ, CHAIN, or DEBUG. Entry 
must be left-~justified,. 


33-42 Contains either the name of any user or com 
piler defined field, any alphanumeric or numeric 
literal, a subroutine name, a vector name, any 
special name, a GOTO operation label, a filename or 
blank. Entry must be left- justified. 
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Figure 9-1. 


FACTOR 2 


DECIMAL POSITIONS 


HALF ADJUST 
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Resulting 
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Arithmetic 


Plus [Minus|Zero 
Compare 


COMMENTS 


43-48 Specifies the name of the field, vector, or 
vector element that will be used to store the rem 
sults of the operation. Entry must be alphanumeric 
and left-justified. 


49-51 Specifies the length of the result field. 
Entries: Blank or any decimal numeric. 


52 Specifies the number of decimal positions. If 
blank, entry is alphanumeric. Entries: Blank or 
0-9, 

53 Specifies if the contents of the result field 
are to be rounded off. Entries: Blank or H. 


54-55 Entry is turned on if the result field is posi- 
tive or FACTOR 1 is the highest in a compare opera~ 
tion, or FACTOR 2 is the highest in a lookup operation 
or a tested zone (TESTZ) is a plus-zone. Entries: 
01-99, LI-L9, LR, HO-H9, OA-OG, OV or blank. 


56-57 Entry is turned on if the result field is nega- 
tive, or FACTOR 1 is the lowest in a compare opera- 
tion, or FACTOR 2 is lowest in a lookup operation, 

or a tested zone (TESTZ) is a minus~zone. Entries: 
01-99, LI-L9, LR, HO-H9, OA-OG, OV or blank. 


98-59 Entry is turned on if the result field is 
zero, or FACTOR 1 is equal to FACTOR 2 in a compare 
or lookup operation, or a tested zone (TESTZ) is 
neither a plus- or minus~zone. Entries: 01-99, 
L1I-L9, LR, HO-H9, OA-OG, OV or blank. 
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Figure 9-2 LO Indicator Coding Example 
LR The LR indicator automatically turns ON when the last record 


has been read and processed (all control level indicators 
L1-L9 also turn ON). This indicator is used to condition 
those operations that are to be performed at End-of-File. 


SR The SR entry is not an indicator; rather, it is used to in- 
dicate that the specification on the same line is part of a 
subroutine. A1l subroutine lines must be specified after 


att ath nm Ant Ta 
Q@aiL ULL wa aCULa ion lines, 


AN-OR This field may also be used to specify that lines of indica- 
tors are in an AND or OR relationship. There is no limit on 
the number of AND or OR lines that may be specified; however, 
it is recommended that the user not exceed seven if compati~ 
bility with other Burroughs systems is desired. The last 
line of a group in an AND or OR relationship contains the 
Operation Code and all operands. All previous lines in the 
group must contain blanks in columns 18759. The first line 
of a group may contain an LO-L9Y, LR,or SR entry if the entire 
group is conditioned by a control level indicator or is part 
of a subroutine. AND/OR relationship is illustrated in 
figure 9-3, Each AND/OR line, and the previous line, must 
contain at least one indicator in columns 9-17. 


Entry | Definition | 


Operation not conditioned by any 


indicator. 


Da eee tt P| 
vuperavion cona 
Ss 


oO 
cator used elsewhere i 


OF 


program. 


| | | 
| | | 
LO-L9 Operation conditioned by con- 
trol level indicator previously 
assigned. 


LR Operation conditioned by last 


record indicator. 


MR Operation conditioned by matching 


record indicator. 


dicator used elsewhere in the 
program. 


U1-U8 Operation conditioned by ex- 


ternal indicator previousiy 
defined. 

OA-OG, OV Operation conditioned by over- 
flow indicator previously defined. 


All three indicators on one line are in an AND relationship. Ali in- 
dicators on one line (or grouped lines), plus the Control Level 
Indicator (if used) must be ON or OFF as specified, in order for the 
associated operation to take place. 


HO-H9 Operation conditioned by halt in- 


Each of the indicators is discussed in the paragraphs that follow. 


01-99 The indicators 01-99 may be used to condition calculation 
operations that are to be performed only for specific in- 
put record types (record identifying indicators), to 
condition calculation operations that are to be performed 
only when an input field meets certain conditions (field 
indicators), or to condition calculation operations ac” 
cording to the results of previous operations in the 
Caleulation Specifications (resulting indicators). 


LO-L9Y The control level indicators, L1-L9, assigned in the 
CONTROL LEVEL field (Input Specifications) or the 
RESULTING INDICATORS field (Calculation Specifications) , 
may be used to condition operations that are to be per- 
formed only on the first record of a new Control Group. 
LO may be specified, but is always ON. 


LR The LR indicator is used to condition operations that 
are to be performed at End-of-Job. 


MR The MR indicator is used to condition operations that 
are to be performed only when matching input records 
are found. 


28-32 


337-42 


d. <A table or array name (vector name) or an element of a vector. 
A vector element is composed of the vector name, followed by 
a comma, followed by the desired index value. 


e. The special words UDATE, UMONTH, UDAY, UYEAR, PAGE, PAGE1, and 
PAGE2. 


f. A label (TAG or ENDSR operation only). 


Entries, including numeric literals, in this field must be left~- 
justified, and are dependent upon the particular operation being speci- 
fied. 


OPERATION 


This field is used to specify the proper Operation Code for the type 
of operation to be performed using FACTOR 1] and FACTOR 2. The Opera- 
tion Code must be left-justified in the field. 


Operations are performed in the order in which they appear on the 
Calculation Specifications sheet; however, all operations conditioned 
by control level indicators specified in the CONTROL LEVEL field (ex- 
cept those which belong to subroutines) must appear after those opera- 
tions not conditioned by control level indicators. 


Each of the operation codes is discussed in detail in the second half 
of the section. 


FACTOR 2 


This field is used to supply the data to be operated upon by the Opera- 
tion Code specified in columns 28-32, Allowable entires are: 


a. The name of any field defined elsewhere in the program, 
b. <A literal (alphanumeric or numeric). 
c. The name of a subroutine (EXSR operation only). 


d. A table or array name (vector name) or an element of a vector. 


A vector element is composed of the vector name, followed by 


2 AAMmmn FAT VAywAA he the Anativnan inde ro rxa lan 
a Ww UU gy LO62i2i0WeGa wy wid Gesirx vou pee oes x VALU » 


e. The special words UDATE, UMINTH, UDAY, UYEAR, PAGE, PAGEI1, 
and PAGE2, 


f. A label (GOTO operation only). 


g. A filename (DEBUG, DSPLY, CHAIN, READ,or FORCE operation 
only). 


Entries in this field must be left-~justified, and are dependent upon 
the particular operation being specified. 
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54-59 


60-74 


75-80 


HALF ADJUST 


This field is used to indicate whether or not the contents of the 
RESULT FIELD are to be rounded. Rounding is accomplished by adding 5 
(or -5 for negative values) to the digit to the right of the last 
decimal position of the RESULT FIELD. Then all digits to the right 


of the last decimal position are dropped. Valid entries for this field 


are; 


| Entry | «Definition 


Blank Do not half adjust. 
Half adjust. 


Entries in this field are allowable only for certain arithmetic 
operations. 


RESULTING INDICATORS 
Valid entries for this field are: 


01-99 Any numeric indicator. 
L1-L9 


Any control level indicator. 


LR Last record indicator. 
HO-H9 Any halt indicator. 
OA-OG,OV Ve; Any overflow indicator. 


Indicators specified in these columns are set OFF immediately before 
the operation is performed. Immediately after the operation, indi- 
cators are set ON to indicate the result of the operations. The use 
of the result indicators is dependent on the type of operation speci-~ 
fied. 


Resulting Indicators must not be specified when the RESULT FIELD is 
an array name, the only exception being a LOKUP operation. 


Figure 9-4 iliustrates the use of resulting indicators and various 
operation codes. The specific uses of the result fields is further 
described in conjunction with the discussion on the various operation 
code tynes in this section. 


COMMENTS 


This field is available for inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


OPERATION CODES 


Various categories of Operation Codes are provided to allow most types of 

data manipulation required by the RPG programmer. Operation Codes are entered 
onivy in the OPERATION field of the Calculation Specifications, and specify 
what type of arithmetic or logical operation is to be performed on the as- 
sociated operands. In the following paragraphs an indexed vector or a table 


name is valid anywhere that a field name is valid. 


Table 9-1 summarizes each of the operation codes discussed in the following 
paragraphs. 


ARITHMETIC OPERATIONS 


Arithmetic operations are only allowed on numeric data items. FACTOR 1 and 
FACTOR 2 must name numeric fields or contain numeric literals; the RESULT FIELD 
must be numeric, All results will be signed and decimal alignment will be 
performed. If the RESULT FIELD is not large enough to hold the result of an 
arithmetic operation, the result will be truncated at the most significant 

end. 


two or all three may be the same field. HALF ADJUST may be specified for all 
operations except SQRT and MVR (i.e., DIV when followed by MVR). Resulting 
indicators may be specified for all operations provided the RESULT FIELD is 
not a whole array. 


A whole array may be entered in FACTOR 1 or FACTOR 2, as long as the RESULT 
FIELD also specifies a whole array. In this case, the designated arithmetic 
operation will be performed on each element of the array or arrays designated 
as factors, with the result being placed in the corresponding elements of the 
array designated in the RESULT FIELD. The operation is terminated when the 
end of the shortest array is reached. If the RESULT FIELD is an array, and 
FACTOR 1 and FACTOR 2 are not arrays, the result of the operation performed 
on FACTOR 1 and FACTOR 2 is placed in all elements of the RESULT FIELD array. 


The use of result indicators in connection with arithmetic operations is as 
shown below: 


a. Plus (Columns 54-55). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is positive. 


b. Minus (Columns 56-57). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is negative. 


c. Zero (Columns 58-59). Any indicator entered in this field will be 
turned on if the result of an arithmetic operation is zero. 


Each of the arithmetic operations is discussed in the paragraphs that follow. 


ise) 
I 

f- 
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ADD 


SUB 


MULT 


DIV 


MVR 
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This operation adds the contents of FACTOR 2 to the contents of 
FACTOR 1 and stores the sum in the RESULT FIELD. FACTOR 1 and FACTOR 
2 are not affected by this operation, unless one of them is also des~ 
ignated as the RESULT FIELD. HALF ADJUST may be specified. 


This operation subtracts the contents of FACTOR 2 from the contents 

of FACTOR 1 and places the difference in the RESULT FIELD. FACTOR i 
and FACTOR 2 are not affected by this operation, unless one of them 

is also designated as the RESULT FIELD. 


Note that subtracting two fields which are the same gives the same 
result as clearing the RESULT FIELD to zero, and can be used as a 
method of clearing fields to zero. 


This operation multiplies the contents of FACTOR 1 by the contents of 
FACTOR 2 and stores the product in the RESULT FIELD. FACTOR 1 and 
FACTOR 2 are not affected by this operation, unless one of them is 
also designated as the RESULT FIELD. HALF ADJUST may be specified. 


Table 9-2 provides an example of the contents of the RESULT FIELD 

for the multiplication operation, showing various field lengths and 
decimai positions. In the exampie, ail fieids that are permitted are 
shown, although some contain incomplete results. Fields not permitted 
are blank; HALF ADJUST is not specified. Note that a field length of 
eight with five decimal positions gives all the significant digits 
without adding zeros either left or right. 


This operation divides the contents of FACTOR 1 by the contents of 

FACTOR 2 and places the quotient in the RESULT FIELD. FACTOR 1 and 
FACTOR 2 are not affected by this operation, unless one of them is 

also designated as the RESULT FIELD. 


Any remainder resulting from the divide operation will be lost unless 
the next operation specified is the MOVE REMAINDER operation (MVR); 
if so, the result of the divide operation cannot be half adjusted. 


If FACTOR 2 is equal to zero, the operator is notified and the program 
discontinues. 


This operation moves the REMAINDER from a previous DIV operation to 
the designated RESULT FIELD. The MVR operation must immediately 
follow the DIV cperation, and FACTOR 1 and FACTOR 2 must be left blank. 
The RESULT FIELD for the MVR operation must be the same length as 
FACTOR 2 for the DIV operation; if the RESULT FIELD is shorter, trun- 
cation may occur. Both the DIV and the MVR may be conditioned on in- 
dicators, which need not be the same for both operations. However, 

the programmer must ensure that the MVR operation is never performed 
without the DIV, otherwise the result of the MVR is undefined. HALF 
ADJUST must not be specified. 


Oo ry 


he following considerations should be made when specifying the size 
f the RESULT FIELD: 


a. The number of significant decimal places in the REMAINDER is 
the larger of: 


1) The number of decimal positions in FACTOR 1 of the 
previous DIV operation. 


2) The sum of the decimal positions in FACTOR 2 and the 
RESULT FIELD of the previous DIV operation. 


b. The maximum integer positions in the REMAINDER equals the 
integer positions in FACTOR 2 of the previous DIV operation. 


c. The RESULT FIELD must not be a whole array. 


Figure 9-5 provides a DIV and MVR coding example. 


CALCULATION SPECIFICATIONS 


HALF ADJUST 
DECIMAL POSITIONS =| 


FACTOR 1 OPERATION FACTOR 2 RESULT FIELD 
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Figure 9-5. DiV and MVR Coding Exampie 


SQRT The operation derives the SQUARE ROOT of the contents of FACTOR 2 
and nlaces it in the RESULT FIELD. FACTOR 1 must he left blank. 


To obtain reasonable precision from SQRT, the following points should 
be observed: 


a. For every digit left of the decimal place in the RESULT FIELD, 
there should be two digits left of the decimal placed in 
FACTOR 2. 


b. For every digit right of the decimal point in the RESULT 


FIELD, there should be two digits right of the decimal point 
in FACTOR 2. 
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Table 9-3. RESULT FIELD Contents for Various Field Lengths 
and Decimal Positions - SQRT Operation 


Decimal Positions 


1 2 Jee ee BL === :6.—. —— 8 
ee ee ans Tea 
_ 4.721 .7213 ee ees 

0054.7)” ga y721 4.7213 2 
000055 00054.7 (0054. 72 054.721 54.7213 4.72130 

~ 9000055 0C0054.7 00054.72 | 0054. 721 054.7213 54.72130| .721305 7 
00000055 | ~00C0054.7 | ~+~+~«000054.72 | ~«00054.721|~:0054.7213 054. 72130 "4.721305 72 13048 Paani, 
“900000055 | —-000c0054.7 0000054. 72 —_000054.721| 00054. 7213 ____0054.72130 ___54.721305 4.7213048 |. 72130482 
0000000055 000000054.7 00000054.72 | __—0000084.721| ——_—-000084.7213 _00054.72130| __054.721305 54.7213048 | 4. 72130482 
00000000055 00000¢0054.7 000000054. 72 00000054. 721 0000054.7213 000054.72130 0054.721305 054.7213048 | __-54.72190482 
000000000055 000000¢0054.7 0000000054. 72 000000054. 721 00000054.7213 0000054. 72130 00054. 721305 0054.7213048 054.72130482 
0000000000055 0000000c0054.7 | 00000000054.72 | 0000000054.721| 000000054.7213|  00000054.72130 | 000054.721305 | 00054.7213048 | 0054, 72130482 
0000000000055 | 00000000c0054.7 | 000000000054.72 | 00000000054.721 | 0000000054.7213| 000000054.72130 | 0000054.721305 | 000084.7213048 | 00054.72130482 
000000000000055 | 000000000c0054.7 | 0000000000054.72 | 000000000054.721 | 00000000054.7213 | 0000000054.72130 | 00000054.721305 | 0000054.7213048 | 000054. 72130482 


NOTE 


RESULT FIELD contents for the square 
root operation: SQRT 2994.42. 


MOVE operations are shown in table 9-4, 


Table 9-4, MOVE Operations 


i?) 


Ke. 
> 
Q 
g 
iw] 


Before MOVE 
Operation 


After MOVE 
Operation 


Before MOVE 
Operation 


After MOVE 
Operation 


AB4SK 
+98 76543 
GEBKLM4SK 
-9876543 
AB4SK 
-87654 


+123456789 
+123456789 
+56789 
+56789 
+56789 
+12345 


-123412422 
+129876543 
—-34422 
-76543 
“12422 
-87654 


123456789 
ABCDEFGHI 
ABCDE 
ABCDE 
56789 
ABCDE 


1234AB4SK 
AB987654C 
LM4SK | 
7654L | 
AB4SK 
8765M 


MOVEL This operation moves, left~justified, characters from FACTOR 2 to 
the RESULT FIELD, starting with the leftmost character and continuing 
until either the source field is exhausted, or the destination field 
is filled. 


When a numeric to alphanumeric move is specified, each digit is 
converted te its corresponding internal character code as it is moved 
to the RESULT FIELD. 


When an alphanumeric~to~numeric move is specified, only the digit 
portion of each character is moved to the RESULT FIELD. Blanks are 


awe & ahr at 


transferred as zeros. 


The sign is transferred only if the RESULT FIELD is numeric and not 
greater in length than FACTOR 2 or if the result is alphanumeric and 
equal in length to FACTOR 2. The sign of FACTOR 2 is the algebraic 
Sign if it is a numeric data item or low order zone if FACTOR 2 is 
alphanumeric. 


MOVEL operations are shown in table 9-5. 
MOVE ZONE OPERATIONS 


Move zone operations are used to move the zone portion of only one character. 
FACTOR 2 is not affected by this operation, and only the zone portion of one 
character of the RESULT FIELD is affected. FACTOR 1 must be left blank. HALF 
ADJUST and resulting indicators must not be specified. 


For the purpose of move zone operations, the "zone" of a variable is defined 
as (1) the algebraic sign, if the variable is numeric; or, (2) the low-order 
or high-order zone, if the variable is alphanumeric. For a numeric field only 
the low zone, which is defined as the sign position, may be referenced, 
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Figure 9-8. MHLZO Move Zone Operations 


MLHZO If FACTOR 2 is alphanumeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone from the low-order (rightmost) position of 
FACTOR 2 to the high-order (leftmost) position of the RESULT FIELD. 
If FACTOR 2 is numeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone from the sign position of FACTOR 2 to the 
high-order (leftmost) position of the RESULT FIELD. The RESULT FIELD 
must be alphanumeric (see figure 9-9). 


_ 


ALPHANUMERIC FACTOR 2 ALPHANUMERIC RESULT FIELD 
a ~~ 


NUMERIC FACTOR 2 ALPHANUMERIC RESULT FIELD 


Figure 9-9. MLHZO Move Zone Operations 


MLLZO If FACTOR 2 is alphanumeric and the RESULT FIELD is alphanumeric, 
this operation moves the zone from the low-order (rightmost) position 
of FACTOR 2 to the low-order (rightmost) position of the RESULT FIELD. 


If FACTOR 2 is alphanumeric and the RESULT FIELD is numeric, this 
operation moves the zone from the iow-order (rightmost) position of 
FACTOR 2 to the sign position of the RESULT FIELD. 


If FACTOR 2 is numeric and the RESULT FIELD is alphanumeric, this 
operation moves the zone from the sign position of FACTOR 2 to the 
low-order (rightmost) position of the RESULT FIELD. 


If FACTOR 2 is numeric and the RESULT FIELD is numeric, this operation 


moves the zone from the sign position of FACTOR 2 to the sign position 
of the RESULT FIELD (see figure 9-10). 
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Comparison of Alphanumeric Fields 


The comparison of alphanumeric fields begins with the leftmost char- 
acter of each and proceeds, character~by~character, to the right until 
a pair of unequal characters is encountered. These characters are 
compared according to the EBCDIC collating sequence, and the field 
that contains the character found to be higher in the collating se- 
quence is considered to be the HIGH field (see Appendix A). 


If the character~by~character comparison reaches the end of the fields, 
they are considered to be EQUAL. 


Both fields are automatically aligned on their leftmost characters, 
and trailing spaces are supplied to the shorter field. 


TESTZ This operation tests the ZONE portion of the leftmost character of 
the RESULT FIELD, setting the specified RESULTING INDICATOR (01-99, 
L1-L9, LR, HO-H9, OA-OG, OV) to the results of the test. FACTOR 1 
and FACTOR 2 must be blank. HALF ADJUST must not be specified. The 
RESULT FIELD must not be a whole array. 


If the RESULT FIELD is alphanumeric, the character under test wili 
set a specific RESULT INDICATOR according to the following: 


Character Under Test RESULTING INDICATOR Set 
A=1,-& PLUS (columns 54-55) 
J~R, 7 MINUS (columns 56-57) 
All Others ZERO (columns 58-59) 


If the RESULT FIELD is numeric, the PLUS (columns 547-55) or MINUS 
(columns 56-57) indicator will be set according to the sign of the 
field. A ZERO indicator must not be specified for a numeric field. 
Note that TESTZ is essentially a zone portion test and will differen- 
tiate between +0 and -O. If the programmer wishes to test for greater 
than, less than, or equal to zero, he should use a compare (COMP op- 
code) against zero, instead of TESTZ. 


BINARY FIELD OPERATIONS 
Three operation codes, BITON, BITOF, and TESTB, are provi t 


individual bits. The individual pits can be ised as switc 


a+ ~~ ~a 
Ga to set an e5 
e 


- 
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Ss in a program, 


In binary field operations the operation codes BITON, BITOF, or TESTB are used. 
FACTOR 2 may contain either of the following: 
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BITOF This operation code causes bits identified in FACTOR 2 to turn OFF 
(set to-zero) in a previously defined field named as the RESULT FIELD. 


The operation code BITOF must appear in columns 28-32. All other 
atio 


specifications are the same as those for the BITON oper: 


figure 9-11). 


TESTB This operation code causes bits identified in FACTOR 2 to be tested 
for an ON or OFF condition in the previously defined field named as a 
RESULT FIELD, setting the specified RESULTING INDICATOR to the result 
of the test. All other specifications are the same as those for BITON 
and BITOF. 


At least one RESULTING INDICATOR must be used with the TESTB opera~ 
tion; as many as three can be named for one operation. Two indicators 
may be the same for one TESTB operation, but not three. If FACTOR 2 
contains bits which are ail OFF, no RESULTING INDICATORS are turned 
ON. RESULTING INDICATORS have the meanings described in the follow— 
ing paragraphs. 


Columns 54-55 


An indicator in these columns is turned ON if each bit specified in 
FACTOR 2 is OFF (0) in the Result Field. 


Columns 56-57 


An indicator in these columns is turned ON if two or more bits were 
tested and found to be of mixed status; that is, some bits ON and other 
bits OFF. It is important to ensure that the field named in FACTOR 2 
contains more than one bit which is ON if an indicator appears in 
columns 56757. 


Columns 58-59 


An indicator in these columns is turned ON if each bit specified in 
FACTOR 2 is ON (1) in the Result Field. 


The following explanations refer to figure 9-1l. 
a. Bits 1234 are turned ON in the field named BITA. 


b. Bits that are ON in the field named ITEMA will cause the 
corresponding bits in the field named BITB to be turned ON. 


c. Bits that are OFF in the field named ITEMB will cause the 
corresponding bits in the array element ARR,XY to be turned 
OFF. Then bits 1, 2, 3 will be turned off in array element 
ARR,XY, and finally the bits that are off in ARR,XY will be 
turned off in the array element TBL,20. 


d. If bits 0, 5, and 7 are OFF in the field named BITC, indicator 
10 will be turned ON. If bits 0, 5 and 7 are of mixed status 
in the field named BITC, indicator 12 will be turned ON. If 
bits 0, 5, and 7 are ON in the field named BITC, indicator 12 
will be turned ON. 
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Conditioning by a control level indicator in columns 7-8 is permissible 
if the TAG is part of TOTAL CALCULATIONS. The INDICATOR field 
(columns 9-17) must be left blank. Columns 33759 and 24-27 must be 
blank. 


TRANSFER CONTROL FUNCTION 


This operation causes the MCP to execute a control instruction within the 
Operating RPG object program. The MCP control instructions which may be 


specified are system dependent. Refer to the B_ 1700 System Software Opera~ 
tional Guide, Form No. 1068731. 


ZIP 


The operation code ZIP causes the MCP to execute the control instruc~ 
tion contained in FACTOR 2. FACTOR 2 may be a field name or vector 
name, previously defined, or a meaningful alphanumeric literal enclosed 
in apostrophes. The operation may be conditioned by the conditioning 
indicator. All other fields must be left blank. The information con- 
tained in FACTOR 2 must be a valid MCP Control Statement. The con~ 
tents of FACTOR 2 must not exceed a maximum of 511 alpha characters. 


ZIP may be used for programmatic scheduling of object programs con- 
tained in the Disk Directory, or ZIP may ke used te accomplish any of 


the MCP control functions performed through the console printer (SPO) 
or card reader. 


In the example shown in figure 9-12, the field DATA contains the 
alphanumeric information, "EX JOB10". EX JOB10 is a control instruc~ 
tion. When the priority for JOB10 is recognized once memory space be~ 
comes available, the MCP will retrieve JOB10 from the Disk Directory 
and place it in the MIX for subsequent operation. 


The program containing the ZIP operation wiil proceed to the next se~ 
quential instruction following the ZIP operation, without waiting for 
the execution of the program JOBILO. 


The example of a literal in FACTOR 2, shown in figure 9-13, will 
cause the same action. 


LOOKUP OPERATIONS 


The lookup operation is used to search a table or array (vector) for a special 


element. 


LOKUP 


This operation is used to search a vector for a particular data item. 
The vector name is entered in FACTOR 2. FACTOR 1 is used to name a 
search word (data for which it is desired to find a match in the 
vector). The LOKUP operation causes the designated vector to be 
searched in an attempt to find an element that matches the search 
word. 


b. An indicator assigned to HIGH (columns 54-55) specifies that 
the vector is to be searched for the item that is nearest 
to but higher in sequence than the search word. The first 
such entry found causes the indicator assigned to HIGH to 
turn ON. 


c. An indicator assigned to LOW (columns 56-57) ecifies that 
the vector is to be searched for the item that is nearest to 
but lower in sequence than the search word. The first such 
entry found causes the indicator assigned to LOW to turn ON. 


sp 
4. 
abt 


The following rules must be observed when assigning RESULTING INDICATORS 
to a LOKUP operation: 


a. At least one RESULTING INDICATOR must be assigned, but more 
than two are not allowed. 


b. If two RESULTING INDICATORS are assigned, one of them must 
be assigned to EQUAL. The program then searches for an item 
that satisfies either condition with EQUAL given precedence; 
that is, if no EQUAL entry is found, then the nearest low or 
higher entry satisfies the search. 


c. Any search operation for other than an EQUAL condition (LOW, 
HIGH, LOW and EQUAL, HIGH and EQUAL) is allowed only if the 
vector was specified as having ascending or descending se~ 
quence on the Extension Specifications. The search algorithm 
assumes that the vector is in the specified sequence; a vector 
out of sequence will cause undefined results. 


d. If the search is successful, the RESULTING INDICATOR desig- 
nating the type of search is turned ON. if two indicators 
are assigned, only the one indicating the comparison of the 
search word and the vector element will be turned ON. 


e. If no element of the vector being searched satisfies the 
conditions, no RESULTING INDICATOR will be turned ON. 
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Figure 9-15. Using a Table in an Arithmetic Operation After LOKUP 


If a data item is assigned to the vector as an index, it will contain 
the number of the element that satisfied the conditions. For an 
array, the element is not saved in a hold area; the index only points 
to the location of the element in the array. 


If the search is not successful, no RESULTING INDICATORS are turned 
ON. If FACTOR 2 is a table name, the hold area is not affected, 
but the hold pointer is set to point to the first element of the 
table. If FACTOR 2 is a vector with a data item assigned as index, 
the index is set to l. 


Two-Vector LOKUP 


When searching two vectors, FACTOR 1 (the search word). FACTOR 2 
(the vector to be searched) , the RESULT FIELD (a corresponding or 
related vector), and at least one (but not more than two) RESULTING 
INDICATORS must be specified, CONTROL LEVEL and conditioning IN- 
DICATORS may also be used (see figure 9-16). 


BEGSR 


ENDSR 


EXSR 
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Figure 9-17. Subroutine Coding Examples 


This operation code is used to indicate the beginning of a subroutine. 
FACTOR 1 must contain the name of the subroutine, which must follow 


the rules for formation of labels as described in Section 1. Columns 
33-59, and 24-27 must be blank. 


This operation code is used to indicate the end of a subroutine. 
FACTOR 1 may contain a label. This label is used like a TAG, as a 
point for a GOTO operation within the subroutine to branch, thus 
allowing exits from different points within the subroutine. Columns 
337-59 and 24-27 must be blank. 


This operation causes execution of a subroutine, and may appear any~ 
where within the Calculation Specification. When execution of the 
subroutine is completed, control returns to the next line following 
the EXSR operation. 


Direct Files 


FACTOR 1 must contain the actual key (relative record number), either 
as a numeric literal (which mus t be integral and not less than 1) or 


the key. “FACTOR 2 “must contain the filename for ‘the file “from which 
the record will be read. This file must be described as a direct 


Ww rs Pa © 
pS 2 + 737 manifs +4 
chain file on the File Specification. 


The actual key specified will be converted automatically to an ab- 
solute disk address, from which location the input record will be 

read. If the designated key points to a record outside the limits 
of the file, the indicator specified in columns 54-55 will turn ON 
and the record will not be read. 


Indexed-Sequential Files 


FACTOR 1 must contain the name of the data key, the field that will 
be compared against the index,and the KEY FIELDS in the data file, 
in order to locate the desired record. FACTOR 1 may be alphanumeric 
or numeric. FACTOR 2 must contain the filename for the file from 


kh 4 h +ha a 11 be raads 
which the record will be read, The filename must have been declared 


on the File Specifications as a chained indexed disk file. 


The data key specified will be compared to the entries in the index, 
which will point to a portion of the file on disk. That portion of 
the file pointed to by the index will be searched until the data key 
matches the KEY FIELD of the data record. If the desired record 
cannot be located in the file, the indicator specified in columns 
54-55 will turn ON and no record will be read. (If no indicator is 
specified then the program will be terminated.) 


The field length of FACTOR 1 must be the same as the key length speci- 
fied for the file on the File Description Specifications. Note that 
if FACTOR 1 is a literal, leading zeros or trailing blanks may be re- 
quired to achieve this. 


The following paragraphs discuss how the CHAIN operation functions for each 
of the file types (input, output, and update). 


Chained Input Files 


For chained files declared as input, the CHAIN operation causes a 
record to be read during calculations. The desired record must be 
identified to the program, so that the proper input data will be made 
availabie from disk. For direct files, an actual key (relative re~ 
cord number) is used; for indexed files, a data key is used. 


Chained Output Files 


The CHAIN operation is applicable to direct output files only; it is 
not allowed for indexed files. 


For chained files declared as output, the CHAIN operation causes the 
proper disk address to be generated for writing the output record 
during normal output operations. The desired record location must 

be made available prior to output, so that the record will be written 
into the proper place in the file. 
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Figure 9-18. DSPLY Operation Coding Examples 


c. If both the RESULT FIELD and FACTOR 1 contain data items, 
the data from both is printed on the console printer and 
an ACCEPT message will be generated by the MCP, to which 
the systems operator must respond. The contents of the 
response will be placed in the field specified in the 
RESULT FIELD. (See figure 9-18, line 8.) 


This operation allows EXCEPTION records to be written during calcula- 
tions. Every time the EXCPT operation is executed, all lines in the 
Output-Format Specifications with a TYPE entry (column 15) of E will 
be written (dependent, of course, on conditioning indicators). If 

this operation is specified, Exception Time Output Specifications are 
required The EXCPT cperation may have CONTROL LEVEL and condition 
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ing INDICATORS assigned; all other fields must be left blank. 


This operation enables selection of the file from which the next 
record is to be taken for processing. This specification overrides 
the normal record selection process that occurs during input. The 
FORCE operation does not actually read any records during calcula~ 
tions, but only selects the file which will supply the next record 
for processing. 


DEBUG OPERATION 


The DEBUG operation is a special-purpose function which simplifies the loca-~ 
tion and correction of errors in an RPG Program. 


DEBUG 


This operation causes records to be written during calculations. 

These records contain specific information which may be heipful in 
locating errors in the program. DEBUG operations may appear in as 
many places as needed within the Calculation Specifications. Every 
time the DEBUG operation is executed, one or more fixed-format records 
will be written to an output device. One record contains a list of 
all indicators which are ON at the time the DEBUG operation is speci- 
fied; the other record(s) shows the contents of any one field. 


DEBUG operations will be compiled into the object program only if the 
DEBUG field of the Control Card contains a 1 (column 15). All DEBUG 
operations are syntax checked during compilation. 


The file named must be defined as a sequential output file on the 

File Specifications. All DEBUG output must go to the same file. 
FACTOR 2 must contain the name of the output file on which the records 
are written. 


FACTOR 1 is optional, and may contain a literal or field name to 
identify the particular DEBUG operation being executed. 


FACTOR 1 must not be a whole array, and the size of the field must 
not exceed eight positions. The literal or the value of the desig= 
nated field is written as part of the output records. 


The DEBUG operation may be conditioned by indicators in columns 7-17. 
Columns 49-59 must be ieft blank. RESULT FIELD is optional, but if 
specified it must be a field, vector, or indexed vector whose contents 
are written on the second and subsequent records. 


DEBUG Operation Output 


One or more records will be written as output from every DEBUG 
operation. The first record is always written; the second and subse7 
quent records will be written only if the RESULT FIELD contains an 
entry. See figure 9-19 for an example of the output produced by the 


DEBUG operation. 


reo 


The first record written is in the following format: 


| Record 


| | 


Entry | 


| Position | | 
| 2-7 | DEBUG | 
| 9-17 | Blank | 
| 18-31 | The words INDICATORS ON- | 


List of indicators that are 
ON, separated by blanks. 


32-any posi- 
tion depending 
on the number 
of indicators 
ON 


C. 


De 


H. 


Burroughs 


PROGRAM 1D 


OUTPUT - FORMAT SPECIFICATIONS 


TYPE 


STACKER SELECT/FETCH OVERFLOW 


OUTPUT INDICATORS 


FIELD NAME 
(VARIABLE 


32 


HELE 


7-14 Contains a filename specified in the 
File Description Specifications. 


14-16 Puts the output indicators in an AND or 
OR relationship. Entries: AND or OR. 


15 Specifies the tvpe of output record to be 
written. Entries: H, D, T or E. 


16-18 Specifies if a record is to be added 
to an indexed sequential file. Entries: 
Blank or ADD. 


16 Specifies (1) which stacker the output 
card is to be placed or (2) that the over- 
flow routine is to be invoked. Entries: 
Blank, F, or 1-N (N=number of stackers). 


17-18 Specifies forms spacing, before or 
after printing, for printer output files. 
Entries: 0O or blank, or 1-9. 


19-22 Specifies forms skipping, before or 
after printing, for printer output files. 
Entries: 0-99, AO-A9, BO-B2, or blank. 


23-31 Output Indicators: 


23, 26, 29 Indicates if the output indicator 
in columns 24-25, 27-28, or 30-31, must be 
ON or OFF. Entries: Blank or N. 


24~25, 27-28, 30-31 Contains a previously 
defined indicator which is to condition 
output. Entries: 01-99, LO-L9, LR, MR, 
HO-H9, U1-U8, OA~OG, OV, 1F, or blank. 
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Figure 10-1. 


B 1700 RPG 


PAGE OF 


PROGRAMMER DATE 


EDIT CODES 
BLANK AFTER 


FROGRAM 
(OENTIFICATION 


“EDIT CODES 


END POSITION 
PACKED 


32-37 Contains a previously defined field 

name or vector or one of the special field 
names PAGE, PAGE1, PAGE2, *PLACE, *PRINT, 

UDATE, UMONTH, UYEAR, UDAY. 


38 Specifies the editing for a numeric output 
field when not using an edit word. Entries: 
Blank, 1, 2, 3, 4, A, B, C, D, J, K, L, M, 

X, Y, or Z. 


39 Specifies if a variable is to be reset after 
the output operation is finished. Entries: 
Blank or B. 


40-43 Specifies the location of a field 
within an output record. Entries: I1-N 
(N=maximum record length) right-justified or 
an * in column 40. 


44 Specifies that an output field is to be 
written in packed decimal format. Entries: 
Blank or P, 


45-70 Contains constants and/or edit words, 
used to format and punctuate output records, 
enclosed in apostrophes and left~-justified. 
Entries: Any valid RPG character (see text 
for uses of characters with special meanings). 


Output~Format Specifications Summary Sheet 


16 


STACKER SELECT/FETCH OVERFLOW 
This field may be used to specify: 


a. The stacker ir 
being punched, or 


b, That the overflow routine can be invoked at this point for 
printer file. 


Valid entries for this field are: 


Blank Cards automatically go to 
defauit stacker. 


Numeric Stacker into which card type 
Entry is stacked. 


F Fetch overflow (printer 
files only). 


STACKER SELECT 


Only card output or combined files may be stacker selected. Output 
files may be stacker selected only in the Output-Format Specifica- 
tions; combined files may be stacker selected either in the Input 
or Output-Format Specifications. If a combined file is stacker se- 
lected in both the Input and Output-Format Specifications, the 
Output-Format stacker specification overrides the stacker specified 
in the Input Specifications. 


Stacker selection on the basis of matching records should be speci- 
fied only for detail output lines, because the MR indicator is on 
only at detail output time to signal the matching status. Record 
types identified by OR lines may be stacker selected for a special 
stacker by an entry in this field; however, if the STACKER SELECT 
field entry is left blank, the card type selected by the OR line 
will go to the default stacker, AND lines may not have an entry in 
STACKER SELECT. 


At execution time, any record types specifying a stacker number 
higher than that available on the device being used will go to 
the default stacker. 


TWAMATY Atanas A 
LHL YVVonL LY 


= 


If the printing of a line could cause overflow, leaving insufficient 
space on the page to print the remaining detail, total output lines, 
or lines conditioned by the overflow indicator, FETCH OVERFLOW shoul 
be specified (F in column 16). 


When the overflow line is reached, the same sequence of events 
always takes place. These are described later in this section in 
the discussion on overflow indicators. Briefly, remaining detail 
lines, total lines, and overflow lines (lines conditioned by the 
overflow indicator) are printed on the page after overflow has 
occurred, 


nto which: the output card is to be placed after 


d 


In the example in figure 10-2, if the printing of line 03 causes the 
overflow indicator to turn on, output lines will oceur in the follow- 
ing order: 

05 is printed on the same page if indicator Ll is on. 

07 fetches overflow. 

09 and Il are printed. 

O01 is printed after skipping to a new page. 

07 is printed if indicator Ll is on. 
Forms will not automatically advance to a new page. It is the pro- 
grammer's responsibility to specify a skip to the first printing line 


on a new page. This skip to Top-of-Page must be specified on a line 
conditioned by the overflow indicator (see figure 10-3). 
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Figure 10-3. Overflow Indicator with Skip Specified 


Fetch may be specified for an OR line, but not for an AND line. 
Fetched overflow can be specified for any detail, total, or ex- 
ception line, except those conditioned by an overflow indicator. 


When more than one printer file is used, fetch pertains only to the 
overflow lines associated with the file in which the record speci- 
fving fetch is defined. 


Exception Lines 


Since an overflow indicator cannot be specified on an exception out- 
put line (E in column 15), FETCH OVERFLOW may be used to cause over- 
flow output at exception time. 


The use of fetch overflow (figure 10-4) will cause the heading, de- 
tail, and total overflow lines to be printed when the overflow line 
has been passed (if the conditioning indicators of the fetch line 

are satisfied). The user may also force overflow by setting ON the 
appropriate overflow indicator (using the SETON operation code) prior 
to issuing the EXCPT operation code. 


A skip entry must not be greater than the form length as specified 
in the Line Counter Specifications or as defaulted. 


If both skipping and spacing are specified on the same line, the 
operations are performed in the following order: 


vee Vewweenw AS Wh Me oe 


a. SKIP BEFORE. 
b. SPACE BEFORE. 
c. SKIP AFTER. 

d. SPACE AFTER. 


If any of the four subfields contains an entry, all desired skipping 
and spacing should be specified. 


Spacing or skipping to or beyond the overflow line causes the over- 
flow indicator to turn ON. However, spacing or skipping beyond the 
overflow line to a line on the next page does not cause the overflow 
indicator to turn ON, 


The user should exercise his option to ensure skipping and spacing 
AFTER printing since it is more efficient than skipping and spacing 
BEFORE printing. 


Different SPACE and SKIP entries may be specified for OR lines. If 
ail these entries are blank for an OR line, spacing and skipping are 
done according to the specifications on the preceding line. If any 
entries are made for an OR line, all desired spacing and skipping 
must be specified. SPACE and SKIP entries are not permitted on AND 
lines. Spacing and skipping must not be specified for other than 
printer files. 


19-22 SKIP (RPG 1 DIALECT) 


If RPG 1 dialect is specified on the Control Card Specifications, 
forms skipping is related directly to the operation of the printer 
carriage control tape. The SKIP field is divided into two subfields 
such that skipping both BEFORE and AFTER printing may be specified. 
Valid entries for this field are 1 thru 11, which designate skip 

to channel 1 thru 11. Skipping is done according to the format 
punched in the carriage control tape, and sensing a channel 12 punch 
will cause the proper overflow indicator to be turned ON, 

Line Counter Specifications are not required. if, nowever, the printer 
output is going to be written to backup during execution, Line Counter 
Specifications must be included if overflow output is ever to occur. 
They are used to associate line numbers with the channel numbers 
referenced, so that the program will be able to determine when the 
overflow line has been reached, 
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Figure 10-5. Output Indicators Coding Example 


The following paragraphs describe the uses of each of the output 
indicators. 


01-99 Numeric indicators may be used as follows: 


ae To condition output operations that are only to 
be performed for specific input record types 
(record identifying indicators). 


b. To condition output operations that are to be 


done when an input field meets certain conditions 
(field indicators). 


ce. To condition output operations according to the 
results of previous operations in the Calcula- 
tion Specifications (resulting indicators). 


LO-L9 Control level indicators may be used to condition output 
Operations that are to be performed only on the first 
record of a new control group. 


The LO indicator remains ON during the entire program. 

If no other control level indicators are assigned, but it 
is desired to perform total calculation and total output 
operations, the LO indicator may be used to condition 
those operations. 
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RQ. 
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The remaining total lines not conditioned by 
overfiow are printed. 


All total lines conditioned by overflow are 
printed. If skipping is specified on these 


Pee H- 


lines, it occurs as defined by the user. 


Heading and detail out 


YY 
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ut 
overflow are printed. If ee is specified 
on these lines, it occurs as defined by the user. 


ines condition ad by 


vv 1oned 


Heading and detail lines not conditioned by over- 
flow are printed. 


The overflow indicator turns off. 


If the overflow line is sensed during detail time output, 
the following steps occur: 


f. 


Se 


The overflow indicator turns on. 


The remaini ng 


eo 


overflow are p 


Rf 
ae 


All total lines not conditioned by overflow are 
printed. 


All total lines conditioned by overfiow are 
printed. If skipping is specified on these lines, 
it occurs as defined by the user. 
Heading and detail output Lines conditior 
overflow are printed. If skipping is specified 
on these lines, it occurs as defined by the user. 


Heading and detail lines not conditioned by over- 
flow are printed. 


The overflow indicator turns off. 


When using the overflow indicator to condition overflow 


printing, 


Ae 


b. 


remember: 


Overflow indicators may be turned on and off by 
the operation codes SETON and SETOF. 


Spacing past the overflow line causes the overflow 
indicator to turn on. 


Spacing or skipping past the overflow line to 
any line on the new page does not turn the over- 
flow indicator on. 


A skip to a new page specified on a line not con- 
ditioned by an overflow indicator causes the over~ 
flow indicator to turn off. 


1P 


TYPE 
STACKER SELECT/FETCH OVERFLOW 


614078 
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AND/OR 


salle tesa EES 


The first page indicator is used to allow printing of 
heading information on the first page of a printer output 
file. In conjunction with an overflow indicator in an OR 
relationship, it may be used to allow printing of the same 
heading information on ali pages. The use of the iP indi- 
cator is illustrated below (see figure 10-8). 


The first page indicator is invalid for update and combined 
files. 
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Figure 10-8. 1P Indicator Coding Example 


The first page indicator can be used to condition heading 
or detail lines. 


If it is necessary to specify more than three indicators to 
condition an output operation, an AND line may be used. 

The word AND must be entered in columns 14-16, and the 
additional indicators entered in their respect ive fields. 
The conditions specified for all indicators in an AND re- 
lationship must be met before the associated output opera- 
tion will take place. 


OR lines (OR in columns 14-15) may be used to group indi-~ 
cators such that only one of the conditions specified must 
be met for the associated output operation to take place. 
Both AND and OR lines may be used together to condition an 
output record (but not a field). A maximum of three indi- 
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Figure 10-9. 


The same PAGE entry (PAGE, PAGEI1, 
different output files, 
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Use the BLANK AFTER specification to cause the field to be 
cleared to zero after printing, or 


Assign an OUTPUT INDICATOR to the PAGE field. 
the field will be set to zero before normal 


dicator is ON, 


incrementation takes place. 


but this is not recommended, 


are not restricted to printer files. 


Date Fields 


UDATE, UMONTH, UDAY, and UYEAR 


If the in- 


or PAGE2) may be used for two 


PAGE fields 


Four special words allow the program to obtain the current vaiue of 


the date as supplied through the B 1700 System. 


rules apply to date fields. 


a. 
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The following 


UDATE gives a 6-digit numeric field in one of the follow- 
ing formats (depending upon the entry in the INVERTED 
PRINT field of the Control Card): 


1) Domestic (MMDDYY), or 


2) International 


The other three fields, 


(DDMMYY) . 


UMONTH, UDAY, and UYEAR, 


each gives 


a 2-digit field representing the month, day, and year, re- 


spectively. 


These fields must not be changed by anv operations within 
they are usually used only in compare, 


the program; thus, 


test, 


and output operations. 
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An additional *PLACE entry (on a separate line) must be 
used every time the fields are to be repeated. 


*PLACE must be specified after the field names which are 
to be placed in different positions on the line; *PLACE 
must not be specified on the first field description line 
for a record. 


The end position specified for *PLACE should be at least 
twice the highest previously specified end position. If 
enough space is not allowed for all fields to be printed 
again, overlapping will occur, with the *PLACE output 
overlapping the previous characters. 


The end position specified for *PLACE must not be lower 
than the highest previously specified field end position. 


The leftmost position of the fields to be moved by the 
*PLACE specification is always assumed to be position l. 


When *PLACE is specified Tor card output, the fields and 
constants named above will be repunched, Any printed 
output on the cards will not be reprinted unless an * is 


entered in column 40 of the same line as *PLACE, 


Only the conditioning indicators (columns 23731), FIELD 
NAME (columns 32-37) and END POSITION (columns 407-43) may 
have entries. 


*PRINT Specification 


eet ee at 


The special word *PRINT is used to cause card interpreting after 
punching (for card files only). Printing is done at the top of 
the cards in the same column positions as the fields are punched. 
The *PRINT specification must be used only once for each record 
and appears after all fields on the card which are to be printed. 
The *PRINT specification may be conditioned by indicators in the 
OUTPUT INDICATORS field; all other fields must be left blank 

(see figure 10-11). 


Having the *PRINT specification print the corresponding field 
exactly as punched is not always desirable. 


To print the fields in positions other than would be assigned by 
the *PRINT specifications: 


Enter the field name to be printed in the VARIABLE NAME 
field, and 


Enter an asterisk in column 40, and 
Enter the end position for the field in columns 41-43 


(limited to a maximum of 128), right-justified; leading 
zeros not required. 


Table 10-1. Edit Codes Table 


Printout on Zero Balance* 


| | bi Beg dies ot ” | Sign For | Inter- | Iinter- | Domestic | 
Edi Decimal Zero Re aes ae Ree . 
oe Commas | Negative | national | national United 
| 


Doin r 
Point (PUbPrere | Balance | J Kingdom 


| 
1 0,00 or 0; .00 or O | 
2 Blanks Blanks Blanks 

3 ,00 or 0 |0,00 or 0 | .00 or O 
4 Blanks Blanks Blanks 

A ,00 or 0/|0,00 or 0] .00 or 0 
B Blanks Blanks Blanks 

C ,00 or 0 |} 0,00 or Oj; .00 or O 
D Blanks Blanks Blanks 

J ,00 or 0 |0,00 or 0; .00 or 0 
K 

L ,00 or 0; 0,00 or 0| .00 or 0 
M Blanks Blanks Blanks 


a 
* 
* 
* 


NOTES 


*Zero balances for the International format are printed or punched 


| 
Blanks Blanks Blanks 
| 
in two ways, depending on the entry made in column 21 of the Control | 


Card Specifications. 
*xThe X code removes the sign, 


***The Y code suppresses the leftmost zero only. The Y code edits a 
three to six digit field according to the following pattern: 


nn/nn 


nn/nn/n 
| nn/nn/nn 


39 BLANK AFTER 


| 
nn/n 


This field is used to specify that a variable is to be reset after 
the output operation is finished. Alphanumeric fields will be 
cleared to blanks and numeric fields will be cleared to zeros. 
Constants and UDATE, UDAY, UMONTH, and UYEAR must not be specified 
with BLANK AFTER. Valid entries for this field are: 
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Table 10-2. Effect of Edit Codes on End Position 


Output Print Positions 


Bouts 


ee Na 
a oe eee eee 
L 3 : 1 2 a 


| * - Represents a negative 0. 


45-70 CONSTANT OR EDIT WORD 


Constants or Edit Words are entered in this field. A description 
of each is provided in the paragraphs that follow. 


Constants 


Constants are literals usually used for such things as page head- 
ings, and contain information that is not changed by an operation. 
Constants will appear exactly as written in the output record, in 
the position specified. The following rules must be observed when 
forming constants: 


a. The VARIABLE NAME entry must be left blank. 


b. Constants must be left-justified, enclosed in apostrophes, 
and no more than 24 characters in length. 


c. If an apostrophe is to appear in the constant, two con- 
secutive apostrophes must be coded for each apostrophe 
required. 


qd. Numeric data may be used as a constant, but must still be 


enclosed in apostrophes. Note that this is an alphanumeric 
literal composed of numeric characters, 
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The example in figure 10-12 uses the Line Printer Spacing Form to 
illustrate the coding of output constants. 
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Figure 10-12. Coding of Output Constants 


Edit Words 


Edit words are used instead of an edit code when a special edit 
format is desired. There are two exceptions: '‘'*' and '$' in 
columns 45-47, which are used in conjunction with edit codes as 
described under Edit Codes; otherwise column 38 must be blank. 


The VARIABLE NAME entry must be a numeric variable. Edit words 
must be left-justified, enclosed in apostrophes, and no more than 
24 characters in length. Columns 407-43 (END POSITION) must con- 
tain an entry. 
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An edit word is divided into three sections: 
a. The body. 
b. The status section, 
c. The extension section. 


Generally the body contains the special characters used in editing 
the numeric contents of the corresponding VARIABLE NAME entry. 


The status section, if used, follows the body and must contain the 
editing characters,CR or - (minus). The status section is used to 
designate whether the numeric variable is positive or negative. Any 
character following the body section and preceding the CR or —- (minus) 
editing symbols is considered part of the status section, The status 
section is printed only if the value of the numeric variable is 
negative. 


The extension section, if used, follows the status section and con- 
tains information which is not changed by any operation and is al- 
ways printed as coded. 


Any valid RPG character may appear in any of the sections of the 
edit word, although certain characters have special uses and care 
should be taken in the placement of these characters. The ampersand 
always appears as a blank unless RPG 1 dialect is specified on the 
Control Card Specifications. In this case, the ampersand, if speci~ 
fied, will be printed as an ampersand in the extension section. 


Special Characters Used In Edit Words 


The character set used for special purposes within edit words con- 
sists of the following nine characters: 


blank ; comma 

0 zero CR credit symbol 
$ dollar sign * asterisk 

. decimal point & ampersand 


= minus sign 


The characters 0 (zero), blank, and floating dollar sign are used as 
replacement characters. Their use is shown below. 


Character 


Zero suppression, 


| 
| Blank, 
| 
| 


* Asterisk fill. | 
$ Floating dollar sign (if | 
| 


| it appears immediately to 
the left of zero suppress). 


Se 


A fixed dollar sign, decimal points, commas, ampersands, negative 
signs (CR and -), and constant information are not replaceable 
characters. 


All leading zeros are suppressed unless a zero or asterisk is 
specified in the edit word. The zero or asterisk indicates that 
the last leading zero in the edit word field is to be replaced by 
a blank or asterisk. 


Any zeros or asterisks following the leftmost zero or asterisk are 
treated as constants (they are not replaceable characters). 


Any constant to the left of the zero suppression stop character 
(except $) will be suppressed unless a significant digit precedes 
the constant. 


The number of replacement characters (0, *, blank, $) in the edit 
word must not be less than the length of the field to be edited. 


If the number of replacement characters is greater than the length 
of the field to be edited and the first character of the edit word 
is a zero, leading zeros will not be suppressed. 


If the number of replacement characters equals the field length 
and there are leading zeros, the first is suppressed but subse- 
quent zeros are not suppressed. 


Example 
Source Data Edit Word Result 
0012345 'Obbbbb. bb' 00123.45 
000000 "Obbbbbb' 0000000 


There are two cases where an extra space should be provided in 
the edit word: 


a. An extra space must be left in the edit word for the 
floating dollar sign, or no dollar sign will appear if the 
output field is full. 


Example 
Source Data Edit Word Result 
-724325 ‘bb, b$0.bb&-' $7,243.25b- 


b. An extra space may be left in the edit word if the first 
character of the edit word is zero. In this case, the 
field will not be zero suppressed, but all other specified 
editing will be performed. 


Example 
Source Data Edit Word Result 
+007461 'Obbb, bbb' 007,461 
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The following paragraphs and corresponding examples describe how 
the various editing characters function. The symbol b is used to 
indicate where blank spaces will appear in the output record. 


No Editing 

If no edit word is used (figure 10-13), the data in the output 
record has the same format as the unedited data. Note that the 
low-order position of the output field is printed as an alphabetic 


character (J-R), if the source data field is negative. 


If a blank edit word is used, all leading zeros are suppressed and 
any Sign in the unedited field is removed. Negative values are not 
identified. 


SOURCE DATA CONSTANT OR EDIT WORD OUTPUT RECORD 


voooorsase | [TTTTTTITIT ITIL | oooon3ase 
-oooorzsess CCITT TTT] ooonz24sn 


oooo000000 =E—rsi FE TT ET TE UE EE Thee te ee Le be Lo) bbbbbbbbbi 


seooowsease §— PEEL EEEEPTEE ELLE] mmemasase 
oooorssase SET EEEEEE EPEAT pv nn2a45 
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Figure 10-13. No Editing Coding Examples 


Zero Suppression 


When the zero suppression zero is specified (figure 10-14), blanks 
replace leading zeros and constants until a significant digit is 
encountered or through the position of the zero suppression zero. 


When the zero suppression zero is not specified, zero suppression 
occurs throughout the field when the value of the source data is 

zero. Therefore, if it is desired that the zero value be printed 
in the output field, the zero suppression zero must be specified. 


Dollar Sign 


Tf the dollar sien is nlaced iust left of the Zero 


waa MY LAWS WT he Fy Ae mR in OY es ee uu ——s 


it becomes a floating dollar sign. In an edited ja field, a 
floating dollar sign always appears to the immediate left of the 
first significant digit. Note that an extra position should be 
left in the high-order portion of the edit word to accommodate the 
floating dollar sign. 


If a doliar sign is piaced at any other point in the body portion 
of the edit word, it becomes a fixed dollar sign. A fixed dollar 
Sign should generally be placed in the extreme left position of 
the edit word (see figure 10-15). 


0000000005 AMUCREASHROBELREBRAALARE pbbbbbbbbb. 05 
00000000 SuHICERIHAIE rea bbbbbbbbbOb 

-00000000123 ~=—s_ |‘! | | [>| | | tsi | | I. faanannne bbbbbbbbbb1. 23- 
-0000123456 NM PTTL PL TEL LLL TL] ppppi2sase 
+0000123456 Mae eet ete 000123456 
0000000000 Nigh Fit tT Tio} Bick! elreisis/) || || $bbbbbbbbOObbbbGROSS 
0000000000 QEARRERREEA BLD BAe bbbbbbbbbbbbbbOLD BAL 
000000 SHARE ABU bbbbb.00 
000000 QESWER-ALAMEEBAITATOGID bbbbbbbo 
0000000000 QEEARREARC Pi4 iT ttt tL] pppppppppoxoo 
001234 Moll | tio Ti ETT TTT TTT TTT] », 012,034 

-000000015 Medot tit Ere PTT] ppppppppppis- 
000000005 PT dst TL ist ote ETT EEE ETE TL pppnnpnno.osp 
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Figure 10-14. Zero Suppression Zero Coding Examples 


+0000000005 STEED TT fisiol te LEME TT TLL LTT] pppppnnnngo.o5p 
0012345678 MU bt TT bt Bolt | Ue BAAS bbb$123 ,456,78CR** © 
0000000000 NS} | dst | [dst [doled] “i went ath $bbbbbbbbbb. 00 


40000123456 Niel TTT BET $bbbb123456bbbNET 
-0000123456 MEE ee +H $bbbb123456b-bNET 
0000123456 Moot TT ETT Ie ler [TTT] 6 s0000123456npner 
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-1234567890 Raeee oO | \&c $1234567890bCR 
0000000005 PCETEET eee SeNERPT Tt bbbbbbbbb$0 ,.O5bNET 
0000000005 MEET Ist TT [ot igiole| Tet TT TET TT | pppppppppns 05 


MITT Ut TT bei old PRM TTT TTT 
RHP BO eee Etat 
Ni tT [ol ids! | | [| | eiswiulelsi 4 | | | | 
ST iol | lool TT TT TTT 


-~1234567890 
-0001234567 
0000001234 
00123456 


$12,345,678,90- 
bbbb$12,345.67CR 
bbbbbb$ , 012. 34bSALES 
bbb1$, 234,56 
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Figure 10-15. Dollar Sign Coding Examples 
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Asterisk Fill 


Asterisk fill, generally used for printing checks, follows the same 
rules as zero suppression (see figure 107-16). 


Asterisks replace all positions in the edit word to the left of the 
first significant digit. 


Zero suppression and asterisk fill can be used together. If zero 
suppression is not used and the asterisk appears in the right most 
position of the body portion, the entire field will contain as~ 
terisks when the value of the source data is zero. 


CONSTANT OR EDIT WORD 


DSAAGHEAEOAEESCARERGREE 
RHEE HEHEHE E 


SOURCE DATA OUTPUT RECORD 


0000123456 
-0000123456 
+1234567890 
~0000123456 
0000001234 
012345 
614086 


¥*****] 234, 56bb 
*000123456 
1234567890 
**** 123456 
#*RKHAK , O12*34 
*#*120 ,345 


a | 
NTT tot | fale] TT at TE 
Nid Loe) ODT TIA TET ET TT TTT 


Figure 10-16. Asterisk Fill Coding Examples 


Negative Signs 


The credit symbol (CR) and the minus sign (-) have special meanings 
only when they appear in the status portion of an edit word, other- 
wise, they are treated as constants. CR, -, and any other constant 
appearing in the status portion of the edit word are printed only 
if the value of the source data is negative (figure 107-17). 


Ampersand 


The ampersand is used to ensure spacing in the edit word (figure 
10-18). If RPG 1 dialect is specified (figure 10-19), ampersands 
will appear as ampersands in the extension section of the output 
record. 


Constants in the Edit Word 


Constants may appear anywhere in an edit word (figure 10-20). In 
the body portion, only constants to the right of the most signi- 
ficant digit and/or to the right of a dollar sign, asterisk, or 
zero in the output field will be printed, Constants in the status 
portion will be printed only when the value of the source data is 
negative. Constants in the extension portion are always printed 
as specified in the edit word. 
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45 70 


40000123456 MTT TTT LLU] (bleinieiwiertl] i yy] [| eppbi234sepppbner 
+0000123456 MELT TTT | f&teley weit] TT TT | ppppi2s4s6ppppner 
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RETR eter CLD 


-0000123456 ¥¥***] 234, S6*¥CR¥E* 
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Figure 10-17. Negative Signs Coding Examples 


-1234567890 ERTL Lol |S eI | $b12,345,678.90b-bGROSS 
-1234567890 poh ta OF | SNe TEPAN $b12,345,678.90b-NET PAY 
-0000123456 ARRARERAEE A el | ielel i TET TT] $*#****] 234. 56CR 
+000002 re eae gz|.ireiked-\ | | | | pbbotps. po2pppppppnp 


031274 


RCC al caret EC b3b12b74bLATER 
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Figure 10-18. Ampersand Coding Examples (RPG II Dialect) 


0000123456 STITT PTT bbbb1234 56&&PROFIT 
0000123456 PELLET TTT Biclgéiwler 4] | || | tI | bbbb123456bbb&NET 
1234567890 NSH] | fol | [st Ol fe] | AeeidiAalyl| sp12,345, 678. 90b-NET&PAY 
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Figure 10-19. Ampersand Coding Examples (RPG 1 Dialect) 
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CONSTANT OR EDIT WORD OUTPUT RECORD 
a5 70 
I ieian| 7 
| | ee lelRelrl TT TTT | | bbbb123456bbPROFIT | 
\ 


SOURCE DATA 


0000123456 


| -0000123456 | j@iCIR | WET) | | | bbbbb1,234.56bCRDbNET 
| 0000123456 Mt tot tt tol | | Pettilaleisl | cewirisi!! pppbp1,234poLLaRssecents | 
| | 


000000 IM isl tt Ipieiuiclaireis! | CES | Le | | | pbbbbbbbbbbbbbCENTS 


000000 
-000002 


bbbbODOLLARSOObbbbbbbb 
bbbbLBS .020Z, TAREb- 


AT Tel ol Ing 
Teles! | wesirameztt TLL 


063369690 Moe Te ET TTT TET TELE] 63-36-9690 
0042 No HIRI «| | PAKS Al" "ielcigiclki’| | | boHRS.42MINS.bO'CLOCK 


093074 
093074 


b9-30-74bLATER 
b9/30/74 
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Figure 10-20. Examples of Constants in the Edit Word 


Refer to Section 2 for a complete description. 


SECTION I] 


DOLLAR CARD SPECIFICATIONS 


Dollar Card Specifications accommodate various extensions to the B 1700 RPG 
Language, which cannot be handled on the other specification forms. Dollar 
Cards also allow certain compiler-control options to be set or reset during 
compilation. 


Dollar Cards may appear anywhere within the source deck, as required. The 
standard Dollar Card Specifications form may be used or options can be coded 


on the other specification sheets at the points where they will be placed in 
the source deck, 


FIELD DEFINITIONS 


Refer to figure 11-1 in conjunction with the following field definitions for 
the Dollar Card Specifications. 


1-2 PAGE 

Refer to Section 2 for a complete description. 
375 LINE 

Refer to Section 2 for a complete description. 
6 FORM TYPE 


This field may be left blank or used to contain the form type of 
the specification in which the option is to be inserted. 


7 $ OPTION 


A 


A $ sign must appear in this field. 
8 NOT 


This field is used to specify that the option entered in the KEY 
WORD field is set ON (NOT = blank) or OFF (NOT = N). Certain options 
cannot be turned OFF; these are indicated under the KEY WORD entry 
description. Valid entries for this field are: 


Blank Specified option is "set". 
N Specified option is "reset". 


0 Burroughs B 1700 RPG 


PROGRAM 10 PAGE OF 
PROGRAMMER DATE 


75 80 
DOLLAR CARD SPECIFICATIONS PROGRAM a 
1DENTIFICATION (TET 


COMMENTS 


A. 6 May contain the form type of the specification 
in which the option is to be inserted. Entries: 
Blank, F, E, L, I, C, or 0. 

B. 8 Specifies if the option entered in the KEY 


WORD field is to be set ON or OFF. Entries: 
Blank or N. 


C. 9-14 Names the option to be used, left~justified. 
For entries, see the descriptions in the text. 


D. 15-24 Used to specify a value to be associated 
with the entry in the KEY WORD field. Not 
always required. Entries: Alphanumeric, left~ 
justified and numeric, right-justified. 


E. 15-74 Used for documenting and commenting. 
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Figure ll-1. Dollar Card Specifications Summary Sheet 


KEY WORD 


This field is used to name the option to be set or reset (according 
to entry in NOT field). The option name must be entered left- 
justified in the field. Options fall into three categories: file 
identification extensions, RPG extensions, and compiler-directing 
options. 


The following B 1700 dollar options may or may not be valid on 
other systems and vice versa. Unrecognized dollar cards will be 
ignored, but a warning will be emitted. 


File Identification Extensions 


The following extensions are used to specify the external names 
for files described in the File Description Specifications. They 
must immediately precede the file in the File Description Speci- 
fications to which they refer. None of the options may be reset. 


$ PACKID Specifies the pack name of a disk file. Similar 
to $ FAMILY and $ FILEID. Default of blank name 
and MCP assumes systems pack. This entry should 
be included to ensure correct handling of the 
file by the MCP. 


$ FAMILY Specifies the external main directory family name 
associated with the file. The value field con- 
tains the name (one to 10 characters left~- 
justified). 


$ FILEID Specifies the external file ID associated with 
the file. The value field contains the name 
(one to 10 characters left~justified). 


An external name may be in one of the following four forms: 


family name 

family name/file ID 

disk pack ID/family name/file ID 
disk pack ID/family name/ 


The internal name of each file is the fiiename assigned in the File 
Description Specifications. 


Unless the FAMILY specification is used, the family name will be 
the same as the internal filename, that is, the filename speci-~ 
fied on the File Description Specification. Therefore, if none of 
the file identification extensions are used the internal and ex- 
ternal name will be the same, i.e., the family name. Figure 11-2 
illustrates how the insertion of the different file identification 
extensions before a file called MASTER affects that file's external 
name, 


pd 
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Figure 11-2. 


ay 


RPG Extensions 


The following 
Specifications 
specification 
of the followi 


$ AREAS 


EXTERNAL NAMES 


MASTER/MASTERFII 


PAYROLL 


PAYMASTER/MASTER/ 


PAYROLL/MASTERF ILE 


PAYMASTER/PAYROLL/ 


PAYMASTER/PAYROLL/MASTERF ILE 


Coding File Identification Extensions - Dollar Sign Options 


options may appear only within the File Description 
, except RSIGN, and must immediately precede the 

line describing the file to which they apply. None 
ng operations may be reset except RSIGN and ONEPAK,. 


Specifies the maximum number of areas to be allocated 
for the file (disk files only). The VALUE field con- 
tains an integral value (right justified, leading 
zeros optional). A system-dependent default value of 
25 is assumed uniess specified by use of this dollar 
option. Maximum number of areas that may be assigned 
is 105. 


$ RPERA 


$ OPEN 


$ CLOSE 


$ AAOPEN 


$ ONEPAK 
$ CYL 


$ DRIVE 


$ REFORM 


$ REORG 


Specifies the maximum number of logical records that 
will be written in each disk area. The VALUE field 
contains an integral value (right-justified, leading 
zeros optional). The default value assigned is 500 un- 
less specified otherwise. If records per area is not 
an even multiple of blocks per area the compile will 
default to the nearest even multiple of blocks per area, 


Explicity open allows for all files to be opened at 
Beginning-of-Job. Default is an implicit open when 
the files are actually called for. 


Explicity close allows all input serial files to remain 
opened until End-of-Job. Default is the implicit close 
of files at End-of-File. 


Is a file OPEN time option used to set a bit in the 
program's code file File Parameter Block for this file 
and to allocate all disk space areas at the time the 
file is opened. 


Specifies that this particular file must be contained 
on one disk. 


Allocates file areas starting on an integral cylinder 
boundary. 


Allocates a physical drive to that particular file. 
Applies only to Systems disks. VALUE fieid must be 
0-15. Option may not be reset and is not related to 
PACKID. 


Input and update disk files are assumed to have the 
block and record lengths declared on the file header 
unless the $ REFORM option is used. However, on 
input or update chained indexed file specifications 
"data keys in core" option, it may be desirable to 
also use $ REFORM to indicate to the compiler that 
it may juggle the blocking factor to optimize the 
speed of chaining. Under this condition, the block 
length and record length specified on the File De- 
scription Specifications must be the same as when the 
file was output. This combination will produce the 
fastest chaining possible. 


Specifies a specialized method of sorting indexed 
files and will be invoked at End-of-Job. The REORG 
feature only sorts the additions and then merges them, 
in place, into the master file. This method of sort~ 
ing should decrease the sort time and the temporary 
disk area required. The VALUE field contains the ex- 
ternal file identifier of the indexed file including 
the disk pack ID. 


Note that REORG uses the record and block length as 
specified in the disk file header, unlike the normal 
sort option which creates the parameters as specified 
in the File Description Specifications. The record 
and block length of the file additions must be the 
same as specified in the disk file header; otherwise 
the file will not sort correctly. 
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fond 


(>) 


$ CHAIN 


$ DNAME 


Indicates to the compiler the location of the sign of 
external numeric data items. When set, all signs are 
assumed to be in the low-order (rightmost) position 
of the field; when reset, ail signs are assumed to 

be in the high-order (leftmost) position of the fieid. 
This option may be set and reset at different points 
in the source program, ailowing different fields to 
have different sign positions. If the option is used, 
it will override the sign position specified in the 
Control Card Specifications, 


Specifies that only the binary search code is to be 
emitted for chained indexed disk files. 


The value field contains an alpha mnemonic for the 
physical hardware device to which it refers, 


Only one of the following four $ RPG Extensions may be used per 
file specification: 


$ PTAPE 


$ TAPE7 
$ TAPEY 


$ CASSET 


Modifies READER or PUNCH to apply to a paper tape 


reader, 
Modifies a tape device to 7-track, 
Modifies a tape device to 9-track. 


Modifies a tape device to a cassette. 


Compiler~Directing Options 


Tne foilowing options may appear anywhere within the B i700 RPG 
Source Program, These options direct the compiler to perform 
specific functions. All of the following options (with the ex- 
ception of SEG) may be "'reset", 


$ LIST 


$ LOGIC 


Specifies that the compiler produce a single spaced 
output listing of the source statements with the error 
or warning messages. This option is set "on" by de- 
fault. Resetting to "off" will not inhibit the errors 
or warning messages from printing. 


Specifies that the compiler produce a single-spaced 
listing of each source specification line, followed 
immediately by an intermediate code used to generate 
COBOL S-code. The listing is produced after the 
NAMES listing (if the NAMES option is set), and does 
not include addresses or bit configurations, but only 
the opcodes and logical operands of the program, 


Specifies that the compiler produce a single-spaced 
listing, detailing the program's memory utilization. 
The MAP listing is produced after the LOGIC listing 


TL =~ 


(if the LOGIC option is set). 


$ NAMES Specifies that the compiler is to produce a single- 
spaced listing of all assigned indicators, file names, 
and field names. The attributes associated with each 
file and field are also listed. The NAMES listing is 
produced immediately after the normal source input 
listing. 


$ BAZBON Specifies that if an indicator is assigned to a field 
to test for ZERO or BLANK in the Input or Calculation 
Specifications and the same field is used in the 
Output Specifications with a BLANK AFTER designation, 
that indicator will be turned ON after the field is 
blanked during the output operations. Should a N 
(NOT) be specified in column 8, the indicator will 
be turned OFF, overriding the original RPG 1 or 
RPG II specifications. 


$ ZBINIT Specifies that all ZERO or BLANK indicators are 
initialized ON at Beginning-of-Job; or, if a N (NOT) 
is specified in column 8, they will be initialized 
OFF regardless of the specifications for RPG 1 or 
RPG II. 


$ STACK If infrequent stack overflow conditions occur during 
program execution, the user may change the stack size 
of the resultant program. This should be used only 
when a legitimate STACK overflow condition has occur- 
red (i.e., nested subroutines more than 8 deep). The 
default stack size is 313 bits which will allow 8 
entries in the stack. To increase the stack size, 
add 39 bits to the default size of 313 for each ad- 
ditional stack entry. 


$ XREF Allows the RPGXRF file to be created during compilation 
for use as input to the RPG/XREF program. The XREF 
option must be placed at the beginning of the RPG source 
program, prior to the first File Specification. At 
the completion of the compilation it is necessary to 
manually execute the RPG/XREF program in order to 
obtain the cross reference listing. 


$ PARMAP Produces a single~spaced listing of the compiler- 
generated paragraph names, source statement numbers, 
and actual segment displacements of the emitted code. 
This listing may be used to relate to the LOGIC 
listing. 


$ SEG Orders the compiler to begin placing code in an over- 
layable segment identified by the integer in the VALUE 
field (right-justified, between 0 and 7 inclusive). 
Segmentation is an automatic function of the RPG 
compiler. When the SEG option is used, automatic 
segmentation is not suppressed. 


15-24 


25-74 
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$ SUPR Specifies that the compiler is to suppress all 
warning messages from the source program listing. 
(Error messages still print.) 


$ XMAP Specifies that the compiler print a single-spaced 
listing of all the code generated, complete with 
actual bit configurations and addresses. Combined 
With the listing produced by the LOGIC option, com 
plete information about the generated code of the 
program is available. The XMAP listing is produced 


after the MAP listing if the MAP option is set. 
VALUE 


This field is used to specify a value to be associated with the 
option entered in the KEY WORD field. Not all options require a 
value; those that do are so designated in the individual de- 
scriptions of each option (KEY WORD field). 


All alphanumeric values must be entered left-justified in the VALUE 
field. All numeric values must be entered right~justified in the 


WAT TID L42An1A. Tan Ase es gevem ave fetianeat 
YAU L110 LU, £0aULls 20bLlus aloe YUptllviial, 


COMMENTS 


This field is available for inclusion of comments and documentary 
remarks, and may contain any valid EBCDIC characters. 


PROGRAM IDENTIFICATION 


Refer to Section 2 for a complete description. 


SECTION 12 
COMPILER OPERATION 


The Burroughs RPG Compiler is an integral part of the B 1700 software system. 
It is treated in many respects as merely another program to be executed and 
can be multiprogrammed with other programs, or with itself. 


SOURCE INPUT 


An input card file labeled RPG/CARD is the only source required by the com- 
piler. All source input must be punched in the EBCDIC character set unless 
it is translated on input. 


If it is desired that the input file be assigned to a device other than the 
card reader, then this may be achieved by using the FILE statement. This, 
of course, means that the device from which the source file is read should 
have the same record length (80 characters) and blocking factor (1) as the 
device from which the compiler expects to read the file. An RPG/VECTOR file 
assigned through the FILE statement should have a record length of 96 and a 
blocking factor of l. 


CONTROL CARD SYNTAX 


The format of the MCP control cards is as follows: 


TO LIBRARY 
? COMPILE <program-name> WITH RPG FOR SYNTAX <control~attributes> ... 
SAVE 


? CHARGE <charge~number> 
? MEMORY <memory~size> 
? PRIORITY <priority~number> 
? FILE <internal-file-name> <file-attributes> 
? DATA RPG/CARD 
source specification cards 
? END 
? DATA RPG/VECTOR 
compile-time table cards 


? END 


All of the above control cards are fully discussed in the B_1700 System 
Software Operational Guide, Form No. 1068731. The format of the four op- 
tions of the COMPILE statement are discussed here, 


COMPILE This is a "compile and go" operation. if the 
compilation is error-free, the MCP schedules 
the object program for execution. The program 
will not be entered into the Disk Directory, 
and must be recompiled to be used again. The 
"compile and go" is the default option of the 
COMPILE statement. COMPILE may be abbreviated 
as CO. 


COMPILE TO LIBRARY This option will leave the program object file 
on disk and will enter the program-name into 
the Disk Directory after an error-free com- 
pilation. The program is not scheduled for 
execution. LIBRARY may be abbreviated as LI. 


COMPILE SAVE This option combines the execute and library 
options. The MCP will enter the program- 
name into the Disk Directory and will leave 
the object program file on disk. The MCP 
will also schedule the program for execution 
after an error-free compilation. The program 
remains in the Disk Directory. SAVE may be 
abbreviated as SA. 


COMPILE FOR SYNTAX This option provides a diagnostic listing as 
the only output. This option does not enter 
the program-name into the Disk Directory or 
leave the program object file on disk. SYNTAX 
may be abbreviated as SY. 


The following sample deck could be used to compile a source program contained 
in punched card to library: 


? COMPILE PROGRAM/TEST1 WITH RPG TO LIBRARY 
? CHARGE 12345 
? DATA RPG/CARD 
source specification cards 
? END 


The following sample deck could be used to compile a source program contained 
on magnetic tape for syntax: 


? COMPILE AAA/BBB/TEST2 WITH RPG FOR SYNTAX 
? FILE SOURCE NAME = RPG/SOURCE DEFAULT TAPE 
? END 


NOTE 


For the effect of the DEFAULT option, re- 


fer to the B_1700 System Software Operational 
Guide, Form No. 1068731. 


pt 

bo 
I 

bo 


VECTOR FILE INPUT 


The vector input files consist of compile-time and execution-time vector 
files, both of which are described in the paragraphs that follow. 


COMPILE-TIME VECTOR FILES 


If the program requires that table or array files be included during compila- 
tion, the compiler requires an input card file labeled RPG/VECTOR. This file 
may be input from a medium other than cards, through use of the FILE state- 
ment. Card input may be punched in either the BCL (96 column card) or EBCDIC 
(80 column card) character set. 


Vector files must be entered in the same order as specified in the Extension 
Specifications, and each file must contain exactly the number of records 
specified. No separators define the end of one vector and the beginning of 
the next; records are read into one vector until that vector is full. Filling 
of the next vector is begun from subsequent records. 


The following sample deck could be used to compile a source program (with 
compile-time vector input) contained on cards to library: 


? COMPILE AAA/TEST3 WITH RPG TO LIBRARY 
? DATA RPG/CARD 
source specification cards 
? END 
? DATA RPG/VECTOR 
table file cards 
? END 


EXECUTION-TIME VECTOR FILES 


If the program requires table or array files to be included at the beginning 
of object program execution, the program will require card files with the 
labels as specified by the program in the File Description and Extension 
Specifications. The files may be read from a medium other than cards, through 
use of the FILE statement. 


COMPILER FILE NAMES 


Table 12-1 lists the files that are used by the compiler for source input 
and compilation output, 


Table 12-1. Files Used for Source Input and Compilation Output 


Internal External 
Source Input Card Reader SOURCE RPG/CARD 


Table Input TABCRD RPG/VECTOR 
Output Listing LINE RPG/PRINT 


Card Reader 


Line Printer 
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B 1700 CARD CODES 


Figure A-1 shows the zone and digit portions of an 80-column card, The zone 


for character A is 12, 
and the digit 9. 


and the digit is 1. The zone for character R is l1l, 


ZONE 12————> @ 


ZONE 11————» 


ZONE 0 ———}> 


DIGITS 


614093 


Figure A-l. 
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Zone and Digit Portions of an 80-Column Card 


Figure A-2 shows the zone and digit portions of a 96-column card. The zones 
12, 11, and O on a 96~-column card are BA, B, and A, respectively. 


Table A-1 lists the 80-column and 96~-column card codes for the complete B 1700 


character set. 
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Figure A-2. Zone and Digit Portions of a 96-Column Card 


Table A-1. Punch Card Codes for the B 1700 Character Set 


EBCDIC BCL 
Character 80-Column 96-Column 
Card Code Card Code 


no punches 
B-A-8-2 
B-A-8-2-1 
B-A-8-4 
B-A~8~4-1 
B-A-8-4-2 
B-A~874-2-1 
B-A 
B-8-2 
B-8-2-1 
B-8-4 
B-8-4-1 
B-8~-4-2 


no punches 
12-8-2 
12-8-3 
12-874 
12-8-5 
12-8-6 
12-8-7 
12 
11-8-2 
11-8-3 
11-8-4 
11-8-5 
11-8-6 


11-8-7 B-8-4-2-1 

= ll B 

ra 0-1 A~-1 

; 0-8-3 A-8-2-1 

% 0-8-4 A-8-4 
0-8-5 A-8-4-1 
0-8-6 A-8-4-2 
0-8-7 A-8~-47-2-1 
8-2 8-2 
8-3 8-2-1 
8-4 8-4 


8-5 
8-6 
8-7 
12-1 
12-2 
12-3 
12-4 
12-5 


8-4-1 
8-4-2 
8-4-2-1 
B-A-1 
B-A~2 
B-A~2-1 
B-A~-4 
B-A~4-1 


[character 


oD WN DON PFWNHNRYRF NK HM St GH anowH VO -A Br A GH HAD 


Appendix A (Cont) 


EBCDIC 


80-Column 
Card Code 


12-6 
12-7 
12-8 
12-9 
ii-l 
11-2 
11-3 
11-4 
11-5 
11-6 
EL 7 
11-8 
11-9 
0-2 

0-3 
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esscodas 
B-A-4-2 
B-A-4-2-1 
B-A-8 
B-A-8-1 
B-1 
B-2 
BaZ=t 
B-4 
B-4~1 


| B-4-2 


B-4-2-1 
B-8 
B-8-1 
A-2 
A-2-1 
A-4 
A-4-1 
A-4-2 
A-4-2-1 
A-8 
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APPENDIX B 


HEXADECIMAL VALUES FOR THE B 1700 
CHARACTER SET 


Table B-1 presents the RPG collating sequence, and table B-2 may be used in 
converting hexadecimal digits to binary code. In table B-1, the zone portion 
of a character is represented by the first hex digit, and the digit portion of 
the character is represented by the second hex digit. 


Table B-1l. B 1700 RPG Collating Sequence 


Hexadecimal Hexadecimal 
Equivalent Equivalent 
40 : 7D 


blank 
4A | = 7E 
’ 7F 
< | A C1 
( Ascending B C2 Ascending 
+ Order C C3 Order 
| | D C4 
& 50 E C5 
] 5A F C6 
$ 5B G C7 
* 5C H C8 
) 5D I C9 
: 5E : DO 
=| SF J D1 
= 60 K D2 
/ 6A L D3 
; 6B M D4 
% 6C N D5 
_ 6D 0 D6 
> 6E Pp D7 
? 6F Q D8 
: 7A R D9 
# 7B Ss E2 
@ 7C T E3 
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Table B-1. B 1700 RPG Collating Sequence (Cont) 


| | Hexadecimal | 


po tCtC—i‘EC«SQivalent | v 


alen | CBeTeRTS®’ | ‘Rqudvalent | | Character | 
E4 a a a coe Ascending [2 | re | 2 | 
E5 | Order | 3 | 
E6 4 
E7 5 
E8 6 
EQ 7 
FO 8 
Fl | ' | 9% | Fo | 


Table B-2, Hex to Binary Conversion 
| Hex | Binary | 
| Digit Equivalent | 


F2 


Table 


Ascending 


Pe 
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BURROUGHS INDICATOR SUMMARY FORM 


The RPG Indicator Summary Form, illustrated in figure C-1l is used strictly for 
documentational purposes. Its function is to provide an accurate record of 


the indicators that are used and the function of those indicators in the RPG 
Program, 


Burroughs B 1700 RPG 
PROGRAM [D PAGE OF 
PROGRAMMER DATE 
12 , 5 80 
PAGE [L] INDICATOR SUMMARY PROGRAM eee 
IDENTIFICATION 
INDICATORS CIRCLE INDICATORS USED: NOTE: ALL INDICATORS ARE NOT VALID WITH ALLSYSTEMS. 
01 02 03 04 05 06 07 og 10 11 12 13 14 15 16 17 18 19 20 


08 
238 34 
4) 42 43 44 45 46 47 48 49 50 51 52 $3 54 55 56 57 58 59 60 
68 69 70 71 72 73 74 75 76 77 78 79 80 


94 
l1 2 L3 L4— LS L6—L? L8 Lg OA O08 oc OD OE OF OG OV 
H1 H2 H3 H4 HS HE HF H8~ H9 ul U2 U3 U4 
Predefined Indicators: iP Lo LR MR HO 


OVERFLOW, 
HALT AND USER 


eo) 
z 
- 
< 
x 
o 


CALCULATION RESULT 


CONTROL LEVEL, 
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Figure C-1. Burroughs Indicator Summary Form 


The indicator Summary Form fields and their content are: 


Column Content 
6 Form type (optional predefined F). 
7 Asterisk required - causes complete card to be 
commented. 
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Column Content 
8-10 Record identifying indicator. 
Li=1 Input field indicators. 
14-16 Calculation resulting indicators. 
17-19 Matching and chaining indicators. 
20-22 Control level, Overflow, Halt, and User indicators. 
23-74 Function of the indicators described in columns 8-22. 
75-80 Program ID. 


GENERA 


GO85 —- 


GO95 - 
G304 - 


G315 - 


G524 — 


G999 - 


APPENDIX D 


COMPILE-TIME ERROR AND 
DIAGNOSTIC MESSAGES 


FILE NAME NEVER DEFINED 
A file name has been referenced that has never been defined 
in File Specification. 


INVALID AND/OR LINE SPECIFICATION 


Ul - U8 MAY BE SET EXTERNALLY ONLY 

These external indicators may not be set programmatically 
and should only be used to indicate at execution time 
whether or not the file is to be used by the program. 


INDICATOR NEVER DEFINED 
This message is caused by an indicator being tested that 
has never been set. 


FIELD NAME NEVER DEFINED 
This message is caused by an undefined variable name being 
referenced. 


CHAINING KEY LENGTH NOT EQUAL CHAINED FILE KEY LENGTH 
This message indicates that the key length specified on 
the File Specification does not agree with the variable 
used to initiate chaining. 


DATA NOT NEEDED/EXPECTED IN THIS CARD 


FILE DESCRIPTION SPECIFICATIONS 


Refer to Section 4 for further information. 


FO23 - 


FO24 - 


FO26 - 


INVALID FILE NAME 

The message is caused by an invalid file name in columns 
7-14, <A file name must be unique in the first seven char- 
acters, 


REDEFINED FILE NAME 
The file name specified in columns 7-14 does not contain 
a unique name in the first seven characters. 


INVALID FILE TYPE 

This message is caused by an illegal entry in column 15 
of the File Specification form. Valid entries are I, O, 
U, C, and D. 
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F039 


F042 


F044 


F044 


F046 


F049 


F052 


F056 


F057 


INVALID FILE DESIGNATION 

This message is caused by an illegal entry in column 16 
of the File Specification form. Blank must be used for 
output files; otherwise one of the following entries are 


required: P, 8S, C, T, or D. 
NO SEQUENTIAL INPUT FILE FOUND 
A primary or secondary file is required. 


INVALID END OF FILE ENTRY 
This message is caused by an invalid entry in column 17. 
Valid entries are blank or E. 


INVALID SEQUENCE ENTRY 
This message is caused by an invalid entry in column 18, 
Valid entries are A, D, or blank. 


INVALID BLOCK-~RECORD LENGTH 

When the Block and Record length contain blanks, a default 
of 132 is assumed for print files, and 80 for all other de- 
vices. When the block length is blank, it will assume the 
record length. When the pbiock and record iength contain 
valid numbers, the block length must be an integral part 

of the record length. 


MULTI BUFFERS AND STACKER SELECTION ON SAME FILE . 
Stacker selection may not be used when multiple buffers are 
specified, owing to the processing of the records from the 
buffer areas. 


INVALID ENTRY TYPE OF ORGANIZATION 
This message is caused by an invaiid entry in column 32. 
Valid entries must contain I, 1-9, or blank. 


INVALID ENTRY ADDITION-UNORDERED 
This message is caused by an invalid entry in column 66. 
Valid entries are U, A, or blank. 


INVALID/MISSING EXTENSION CODE 

This message is caused by an invalid entry in column 39. 
Valid entries are blank or E for table files; L may be 
specified for print files. 


INVALID DEVICE 

This message is caused by an invalid device specified in 
columns 40746, Valid entries are READER, MFCU1, PUNCH, 
PRINTER, PRINTR2, TAPE, DISK, SPO, or CONSOLE. 


INVALID FILE FORMAT/FILE CLOSE 
This message is caused by an invalid entry in column 19. 
Valid entries are F, V, or blank. 


INVALID INDICATOR MUST BE U1~-U8 
This message is caused by an invaiid entry in coiumns 717-72, 
Valid entries are U1-U8 or blank. 


F400 


F404 


F407 


F543 


F549 


F553 
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INVALID ENTRY MODE 
This message is caused by an invalid entry in column 28. 
This field must contain R or blank. 


INVALID ENTRY ADDRESS TYPE 

This message is caused by an invalid entry in column 31. 
Valid entries are A, K, P, N, or blank, On indexed files, 
this field specifies the format of the key; it must be 
left blank if the file is not indexed, 


INVALID ENTRY ADDITION-UNORDERED 


INVALID KEY LENGTH ENTRY 

The key length is required when using indexed processing. 
When used, this field (columns 29-30) must contain a valid 
number from 1-99, and the key length plus the key start 
location must not exceed the record length. 


INVALID KEY START LOCATION 

The key start location field is required when using in- 
dexed processing. This field (columns 35-38) must contain 
a valid number, and the key start location plus the key 
length must not exceed the record length. 


INVALID KEYS IN CORE ENTRY 
The keys in core entry (columns 60-65) must contain a 
valid number not exceeding 9,999. 


EXTENSION SPECIFICATIONS 


Refer to Section 5 for further information. 


E061 


E062 


E063 


E067 


CHAINING FIELD FOR THIS LEVEL NOT DEFINED ON INPUT 

This message indicates that automatic chaining has been 
specified, and the corresponding level has not been 
specified on input. 


INVALID FROM FILE NAME ENTRY 

This message is caused by an invalid entry in columns 11-18. 
It is used as the file name of every execution-time vector, 
but must be left blank if the vector is to be loaded at 
compile time or via Input or Calculation Specifications. 


INVALID TO FILE NAME ENTRY 

This message is caused by an invalid entry in columns 19-26. 
It is used as the file name of a vector file that is to be 
written or punched. A valid file name must be used as well 
as being previously defined on the File Description Specifi- 
cation form. 


INVALID VECTOR NAME 

This message is caused by an invalid table or array name in 
column 27-32. Valid vector names cannot exceed six char- 
acters and must be unique. Table names must begin with the 
letters TAB. 
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E072 


E074 


E076 


E077 


E122 


E228 


E315 


INVALID ENTRY NUMBER OF ENTRIES PER RECORD 

This message is caused by an invalid entry in columns 33-35. 
This field must contain a valid number. This entry times 
the length of Vector A plus the length of Vector B (if 
applicable) must not be greater than the From File iength 
or (if applicable) 96. 

INVALID ENTRY NUMBER OF ENTRIES PER VECTOR 

This message is caused by an invalid entry in columns 36-39. 
This entry must be a valid number limited only to the size 
of the field. 


INVALID ENTRY LENGTH OF ENTRY 

This message is caused by an invalid entry in columns 40-42/ 
92-54. This entry must be a valid number specifying the 
length of the entry of the vector. Alpha entries must not 
exceed 511 and numeric entries 3l. 


INVALID ENTRY PACKED 
This message is caused by an invalid entry in column 43/55. 
Valid entries are blank and P. P is only allowed on numeric 


FaatAa 
LALO LUP © 


INVALID DECIMAL POSITIONS 
This message is caused by an invalid entry in column 44/56. 
Valid entries are 0-9 or blank. 


INVALID SEQUENCE ENTRY 

This message is caused by an invalid entry in column 45/57. 
Valid entries are A, D, or blank. 

INVALID ALTERNATE VECTOR NAME 

This message is caused by an invalid table or array name 
in columns 46-51. Valid vector names cannot exceed six 
characters and must be unique. Table names must begin 
with the letters TAB. 


REDEFINED VECTOR NAME 

This message is caused by a vector name that has been rede- 
fined. Vector names must be redefined using the same length, 
type, and decimal positions as used on the first definition. 


INVALID/OUT OF BOUNDS LITERAL ~- VECTOR, LITERAL -- 
Literals must contain digits 0-9 and cannot exceed the size 
of the vector. 


INVALID/UNDEFINED FIELD NAME -- VECTOR, FIELD NAME -- 
This message is caused by an illegal field name or a field 
name that has not been defined. 


LINE COUNTER SPECIFICATIONS 


Refer to Section 6 for further information. 


LO85 - INVALID FILE NAME OR FILE TYPE 


This message indicates that a file name in columns 7-14 is 
not valid or has not been assigned to a print file. The 
file name must also have been previously defined on the File 
specification. 
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LO88 - WHEN DEFINED -FL- MUST BE IN COL 18-19 


LO90 - INVALID CHANNEL ENTRY 


This message is caused by an illegal channel entry. Valid 
entries are 01-12, OL, or FL. 


LO91 - INVALID LINE ENTRY EXCEEDS FORM LENGTH OR 112 


The line position entry must not exceed the form length 
or 112. 


INPUT SPECIFICATIONS 


Refer to Section 8 for further information. 


I084 - RECORD LINE ASSUMED 43-70 TREATED AS BLANK 


T092 


I092 


1093 


1094 


1097 


I101 


I102 


1103 


1107 


I109 


INVALID FILE NAME 

This message indicates that the file name in columns 7-14 
is not valid or has not been assigned to an input file. 
The file name must also have been previously defined on 
the File Specifications. 


FILE NOT DEFINED AS INPUT 

The file type in column 15 of the File Specification form 
has not been specified as I, U, C, or D. 

FIELD LINE ASSUMED 7-42 TREATED AS BLANK 


RECORD LINE WITH FILE MUST BE FIRST INPUT SPEC 
The first Input Specification must contain a file name, 


NO FIELDS DEFINED IN LAST RECORD 


SEQUENCE FIELD SPECIFICATION 


This message is caused by an invalid entry in columns 15-16. 


It must contain a valid sequence entry, either 2 alpha 
characters other than ND or Rb, or a numeric entry from 
01-99 in ascending order within the file. 


INVALID ENTRY ~NUMBER- 
The number position entry in column 17 must contain 1 or N 
if the sequence entry is numeric, or blank if alphabetic. 


INVALID ENTRY -OPTION- 

This message is caused by an invalid entry in column 18. 
Valid entries are 0 and blank. The O may only be used on 
numerical entries, and one numerical entry should be non- 
optional. 


INVALID RECORD ID CODE 
This message is caused by an invalid entry between 21-41. 
The position entry must fall within the record length. 


INVALID ENTRY -STACKER- 
This message is caused by an invalid entry in column 42, 
Valid entries are blank and 1-6 on card files. 
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1118 


I119 


1120 


T1122 


I122 


I159 


1166 


I170 


1172 


I181 


D-6 


INVALID PACKED ENTRY 

This message is caused by an invalid entry in column 43. 
Valid entries are P or blank. P may be specified only on 
numeric field lines, and if specified, column 52 (decimal 
positions) must not be blank. 


INVALID FROM 
Tne FROM an es must be aiid numbers and cannot 
exceed the vecord Senet: Numeric fields must not exceed 
31. Alpha fields must not exceed 511. Vector load ele- 
ments must be the same length as the element defined on 
the Extension Specifications, and the entire array load 
must not be greater than the array length and modulo the 
element length. 


32 


INVALID FIELD NAME 
This message is caused by an invalid field name in columns 
53-58. 


INVALID CONTROL LEVEL INDICATOR 


This message is caused by an invalid entry n columns 59-60. 
icato i- 


Uu 
fey 
De 


INVALID ENTRY MATCHING-CHAINING FIELD 
This message is caused by an invalid entry in columns 61-62, 
Valid entries are blank, M1-M9, and C1-C9. 


REDEFINED FIELD NAME - LOOKAHEAD 
A look-ahead field name must be unique. 


REDEFINED FIELD NAME 


When used, a dupiicate fieid name must contain the same 
length and decimal positions entry as the original. 


INVALID RECORD INDICATOR 
This message occurs when columns 19-20 do not contain a 
valid indicator or look-ahead, 


INVALID FIELD RESULTING INDICATOR 
This message occurs when columns 65-70 do not contain blanks 
or a valid indicator. 


INVALID ENTRY FOR CHAIN OR DEMAND FILE 
Chain or demand files may not contain control levels or 
matching fields. 


INPUT FILE ORDER IS DIFFERENT FROM FILE SPEC 
The input files must be in the same order as defined on the 
File Specifications. 


REDEFINED LENGTH OF MATCHING-CHAINING FIELD 

REDEFINED LENGTH OF CONTROL FIELD. 

This message indicates that the total length of a given 
level on the current record is not identical to the total 
length of the same level of a previous record. 


1188 - 


1226 - 


1575 — 
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INVALID RECORD RELATION INDICATOR 


This message is caused by an invalid entry in columns 63-64, 


This field must contain a valid indicator or blank. 


INVALID ENTRY DECIMAL POSITIONS 

The decimal positions entry in column 52 must contain a 
blank or 0-9. On vector loads, the decimal positions entry 
must be the same as the defined element. 


UNREFERENCED OR MISGROUPED REFERENCE OF FILE NAME 

This message indicates that an Input Specification has been 
referenced that has not been declared in the File Specifi- 
cation, or that the file names appear more than once and 
not consecutively, or that it does not appear in the same 
order as the File Specification. 


CALCULATION SPECIFICATIONS 


Refer to Section 9 for further information, 


C122 - 


Ci22° > 


C123 - 


C125 - 


C128 - 


C131 - 


C135 ~ 


C135 - 


REDEFINED FIELD NAME 

This message indicates that the name defined in the result 
field has been previously defined with different length 
and decimal positions. 


REDEFINED FIELD NAME - LOOKAHEAD 
This message indicates that the name defined in the result 


field has been previously defined as a look-ahead field with 


different length and decimal positions. 


INVALID CONTROL LEVEL INDICATOR 

This message is caused by an invalid entry in columns 778. 
Valid entries are LO-L9, LR, AN, OR, and, when in a sub- 
routine, SR. 


INVALID FACTOR 1 

The field in columns 18-27 containing Factor 1 must be 
present if required, or absent if not required as speci- 
fied by the Operation Code. When present, it must be a 
legal variable. 


INVALID OPERATION CODE 
The operation code specified in columns 28-32 is not legal. 


INVALID FACTOR 2 

The field in columns 33-42 containing Factor 2 must be 
present if required, or absent if not required as specified 
by the operation code. When present, it must be a legal 
variable, 


INVALID RESULT FIELD 

The field in columns 43-48 containing the result field must 
be present if required, or absent if not required as speci- 
fied by the operation code. When present, it must be a 
legal variable but may not contain a literal. 


INVALID RESULT FIELD NAME 
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C137 


C138 


C140 


C190 


C200 


C207 


C207 


C214 


C519 


INVALID RESULT FIELD LENGTH 

This message is caused by an invalid entry in columns 49-51. 
The result field length must contain a valid number between 
1-31 for numeric fields or between 1-511 for alpha fields. 


pana DECIMAL eae 


INVALID ENTRY HALF ADJUST 

This message is caused by an invalid entry in column 53. 
Valid entries are blank and H. H may only be used with 
arithmetic operators. 


INVALID BEGSR/ENDSR RELATIONSHIP 

This message is used in conjunction with subroutines. Each 
subroutine must begin with a BEGSR and end with an ENDSR, 
and may not contain another subroutine. 


INVALID RESULTING INDICATOR 
This message is caused by an invalid indicator or one that 


aa aes 


wn 
should not have Veet. specified. 


INVALID ALPHA LITERAL 
Alpha literals must be contained in apostrophes and must 
follow the rules for forming literals. 


INVALID NUMERIC LITERAL 

This message is caused by an invalid numeric literal. Nu- 
meric literals start with +, ~-, +, or O-9 and may contain 
only one comma or one decimal point, with no embedded blanks, 


Sey he oy oe 


and only digits oO-S. 


INVALID GOTO ~ TAG OR EXSR = BEGSR RELATIONSHIP 

GOTO operations are valid only in conjunction with TAG and 
ENDSR labels. EXSR operators must be associated with a 
BEGSR. 


FACTOR 1 AND FACTOR 2 BOTH LITERALS 
It is illegal to have literals in both Factor 1 and Factor 2. 


RESULT FIELD MAY NOT BE LARGE ENOUGH 
This warning occurs when an overflow condition is likely 
to occur, which would cause high order digits to be lost. 


LICATE TAG, BEGSR, OR ENDSR NAME 

INVALID INDICATOR 

A conditioning indicator must be specified on AND/OR lines 
and must be a valid indicator. 


INVALID AN - OR ENTRY 
This message is caused by an illegal entry. The last of a 
series of AND/OR lines must contain a calculation operation. 
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OUTPUT-FORMAT SPECIFICATIONS 


Refer to Section 10 for further information. 


0097 
0142 
0143 


0146 


0148 


0150 


O151 


0152 


0154 


0154 
0212 


0256 


NO FIELDS OR LITERALS DEFINED IN LAST RECORD 
RECORD LINE ASSUMED 32-70 TREATED AS BLANK 


INVALID OUTPUT RECORD TYPE 

This message is caused by an invalid entry in column 15. 
Valid entries are H, D, T, or E, This entry may also 
contain an N or R on AND/OR lines. 


INVALID FILE NAME 

This message indicates that the file in columns 77-14 is 
not valid or that it has not been previously defined on 
the File Description Specifications as an output file. 


INVALID FIELD NAME 


This message is caused by an invalid entry in columns 327-37. 


A field name previously defined on Input, Extension, or 
Calculations Specification may be used, or one of the 
special reserved words may be used. 


INVALID BLANK AFTER ENTRY 
The blank after entry in column 39 must contain a blank 
or B. 


INVALID ENDING POSITION 

This message is caused by an invalid entry in columns 40-43. 
This entry must contain a valid number that must not exceed 
the record length of the file, and the length of the field 
must not underflow the record. This must also include the 
size of the editing symbols when used. 


INVALID PACKED ENTRY 

This message is caused by an invalid entry in column 44, 
Valid entries are blank or P. When P is specified, a 
numeric variable must be described in columns 327-37. 


RECORD LINE WITH FILE MUST BE FIRST OUTPUT SPEC 
The first Output Specification must be a record line con- 
taining a file specification. 


FIELD LINE ASSUMED 7-22 TREATED AS BLANK 


EXCPT CALC WITHOUT EXCEPTION OUTPUT RECORD TYPE 
The EXCPT operation code has been used when no Exception 
output records have been defined. 


INVALID STACKER/FETCH ENTRY 

This message is caused by an invalid entry in column 16. 
Valid entries on punch files are 1-6, and on Print files, 
are F or blank. 
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This message is caused by an invalid entry in columns 17-18 
or 19-22. Valid entries for Spacing are blank, 0, or 17-9; 
for Skipping, 0-99, AO-A9, or BO-B2; and must only be used 
on Print files. 


0273 - INVALID OUTPUT INDICATOR 


aa tna t sanAs na tava 


The OUTPUT INnGicators in cso ns 
blank or a valid indicator. Valid indicators are 01-99, 
LO-L9, LR, MR, HO, H9, U1-U8, OA-OG, OV, or IP. 


1 


atm 92—~27 + ” 
Ui au 


mae mamta sf 
Vi WUD VYUYUILLaAdALL aA 


”~ 2 


0276 - INVALID EDIT CODE 
Column 38 must contain a blank if the field name field 
contains an alpha variable or literal; when numeric, it may 
contain a blank, 1-4, A-B-C-D, J-K-L-M, or X-Y~-Z. 


0277 - INVALID EDIT WORD 
The number of replaceable characters in the edit word 
(columns 45-70) must be equal to or greater in length than 
the length of the field to be edited. 


0283 - INVALID FILE TYPE FOR OUTPUT RECORD 
The file type has not been defined as O, U, C, or an input/ 
add file. 


0289 - *PLACE OR *PRINT PRECEDES ALL FIELDS AND CONSTANTS 


0548 - INVALID FILE ADDITION 
The file referenced has not been declared as an add file 


Pees © capt cal oe oe. 2 : 4 Tt a i | eee eaten as a 
but ADD was specified, ADD will be assumed. 


0554 - ADD NOT SPECIFIED ASSUME ~ADD- 
All files, except update files, using "A" in column 66 in 
the File Specifications should have "ADD" in columns 16-18 
of each record in the output of the corresponding file. 


0998 - EDIT TO BE PERFORMED ON ALPHANUMERIC FIELD 
Only numeric items may be edited. 


0999 - BLANK AFTER INVALID FOR OUTPUT LITERAL 
Blank after may not be used after an output literal. 


DOLLAR CARD SPECIFICATIONS 


Refer to Section 11 for further information. 


DOL1 - INVALID ENTRY ~NEGATE- 
This message is caused by an invalid or illegal entry in 
column 8. Valid entries are blank or N; however, on some 
Dollar Card Specifications, it is illegal to use the Not 
option. 


DOL2 - INVALID ENTRY ~KEYWORD- 
This message is caused by the keyword entry not containing 


oO wea Te 


A aation 
a@ Vaiia option. 


: 
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DOL3 - INVALID ENTRY -VALUE- 
This message is caused by an illegal entry in the value 
field of the $ option. Alpha entries must contain a char- 
acter from A to Z in column 15, and numeric entries must 
contain blanks or zeroes in columns 15 and 16. 
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APPENDIX E 


EXECUTION-TIME ERROR MESSAGES 


Certain conditions may arise during program execution which require operator 
notification and, in most cases, acknowledgment. Some program errors are re~ 
coverable, and some are not. For more information refer to the B_ 1700 


System Software Operational Guide, Form No. 1068731. 
INPUT ERROR MESSAGES 


The following messages all denote error conditions arising during input, and 
all are recoverable. The program will request a reply from the operator. JdHe 
may respond with "GO" (<mix index>AXGO ), in which case the erroneous record 
will be ignored and the next record from the same file will be read; or he 
may respond with "STOP" (<mix index>AXSTOP ), in which case the erroneous 
record will be ignored, the LR indicator will be turned ON, and all final de- 
tail, total calculations, and output will be performed. 


The occurrence of the following message results from reading an unidentifiable 
input record (i.e., none of the designated record Identification Codes for 
the file could be found in the input record). 

<program-name> = <mix index> : IDENT 
The occurrence of the following message results from reading an input record 
from a file with matching fields specified that is out of sequence, Ail re- 
cords in matching files must be in sequence, either ascending or descending. 

<program~name> = <mix index> : MSEQ 
The occurrence of the following message results from reading an input record 
which is out of sequence, as specified by the entries in columns 15-18 of the 
Input Specifications. 

<program-name> = <mix index> : SEQ 
The occurrence of the following message results from reading an execution- 
time vector record which is out of sequence, as specified by the SEQUENCE 
fields in the Extension Specifications. 

<program~name> = <mix index> : VSEQ 


The occurrence of the following message results when trying to read a demand 
file which is at End-of~File and no End-of-File indicator has been specified. 


<program-name> = <mix index> : REOF 
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The occurrence of the following message results when reading a file that con- 
tains an error. 


<program-name> = <mix index> : READ ERROR 


PROGRAMMED HALTS 


The following message will be displayed at the end of a program cycie if any 
of the halt indicators (HO-H9) are set. Each n will either be blank (in- 
dicator not set) or a number 0-9 (indicator set). 


<program-name> = <mix index> ;: HALT nnnnnnnnnn 


If the HO, H3, H4, H7, and H9 indicators were set, the message would appear 
as; 


<program-name> = <mix index> : HALT 0 ..34..7.9 


The program will request a reply from the operator; he may respond with "GO" 
(<mix index> AXGO ), in which case all halt indicators will be turned OFF 
and the program will continue; or, he may respond with "STOP" (<mix index> 
AXSTOP), in which case the LR indicator will be turned ON, and ail totai 
calculations and output will be performed. 


FORMS POSITIONING 


The following message will be displayed after all output lines conditioned by 
the 1P indicator have been printed, if FORMS POSITIONING has been specified 
in the Control Card (column 41). The program will request a reply from the 
operator; if he responds with "YES" (<mix index>AXYES), all 1P lines will be 
printed again, and the above message will be repeated; if he responds with 
"NO (<mix index>AXNO), normai processing will begin, 


<program-name> = <mix index> : AGAIN? 


Printing of the 1P lines may be requested as many times as necessary in order 
to align the forms properly. 


ARITHMETIC ERRORS 


The occurrence of the following message is a result of an attempt to perform 
a DIV (divide) operation using a divisor of zero, The program will be auto- 
matically discontinued (DS-ED) by the MCP. 


<program-name> = <mix index> : DIVIDE BY ZERO 


The occurrence of the following message is a result of an attempt to perform 
a SQRT (square root) operation on a negative argument. The program will re- 
quest a reply from the operator; he may respond with "GO" (<mix index> AXGO ), 
in which case the RESULT FIELD will be set to zero and the program will con- 
tinue; or, he may respond with "STOP" (<mix index> AXSTOP ), in which case 
the LR indicator will be turned ON, and all final detail, total calculations, 
and output will be performed. 


<program~name> = <mix index> : SQRT 
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VECTOR (ARRAY, TABLE) ELEMENT ERRORS 


The occurrence of the following is a result of an attempt to reference a 
vector element that is out-of~bounds (i.e., an index value less than or 
equal to zero, or greater than the maximum size of the array as specified 
in columns 36-39 of the Extension Specifications). The program will 
automatically be discontinued (DS-ED) by the MCP. 


<program-name> = <mix index> : INVALID SUBSCRIPT 
Note: Subscript is terminology used for vector element. 


SEQUENCE ERRORS 


The occurrence of the following message indicates indexed data key out of 
sequence. Any response will force EOJ. Program data file will have to be 
re~sorted or program loading file or updating file will require re-working. 


<program-name> = <mix index> : KEYSEQ 
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APPENDIX F 


B 1700 RPG TO COBOL TRANSLATOR 
(COFIRS Il) 


The B 1700 RPG to COBOL Translator converts RPG source programs to COBOL source 
language disk files. It uses files created during the syntax checking and logic 
generation phases of the B 1700 RPG compiler, thus eliminating the need for a 
separate syntax checking program, It will translate any RPG 1 or RPG II con- 
struct that is acceptable to the B 1700 RPG compiler. 


This close relationship to the B 1700 RPG compiler requires the user to be 
familiar with Burroughs B 1700 RPG as it is defined in the earlier chapters 
of this manual. For a list of differences between B 1700 RPG and other sys- 
tems RPG see Section l. 


Three steps are required for the complete translation of an RPG program to 
B 1700 COBOL. The first is the execution of the B 1700 RPG compiler with 
special $ card options indicating this is a translation run. This causes 
intermediate work files to be saved for the use of the translator, and 
object code is not generated, COFIRS is then executed. It uses the inter- 
mediate work files created by the B 1700 RPG compiler to generate COBOL 
source code on disk. 


The newly generated COBOL program is then compiled to provide executable 
object code. The compiled COBOL program will generally require approximately 
the same amount of memory for execution, and execution time will be approxi- 
mately the same as the original RPG program would have required if compiled 
and executed on the B 1700 computer. 


COFIRS IT OPERATION 
The following three steps are required for the COFIRS II operation: 


a. Section 12 describes the control card syntax required by the B 1700 
RPG compiler phase of the translation. Briefly, it is as follows: 


? COMPILE <program~name> WITH RPG LIBRARY 
? DATA RPG/CARD 

$ option cards 

source specification cards 
? END 


The $ option cards to be included in the RPG source deck for use 
by COFIRS II are coded in the same manner as other $ option cards 
used by the B 1700 RPG compiler, with the $ in column seven and 
the COFIRS II option beginning in column nine. Only one option 
may be entered per card, but several $ cards may be entered as 
required by the user (see Section 11). The $ options PACKID, 
FAMILY, FILEID, AREAS, RPERA, and RSIGN are all applicable as 
needed in the RPG source program. The $ options MAP and XMAP 
are not applicable and will be ignored in the COFIRS II trans- 
lation, 
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The following $ options are available for use exclusively for 
COFIRS II translations: 
$ XLATE This option is required for translation of an RPG pro- 
gram to COBOL on the B 1706. It indicates to the B 1700 
RPG compiier that this is a translation run and that ob- 
ject code is not to be developed for the RPG program, 


$ SPERSE This option will cause RPG statements to be inter- 
spersed with the generated COBOL source statements 
as comments. 


$ XLIST This option causes the translated COBOL statements to be 
printed as they are developed during the execution of 
COFIRS II. 


b, After the RPG compiler goes to End-of-Job, it is necessary to manually 
execute COFIRS II. 


$ EXECUTE COFIRS 


COFIRS II creates the COBOL source file on disk with the file name 
RPGCOB. 


ec, In order to compile the newly translated COBOL program, it is nec” 
essary either to change the name of the RPGCOB file to COBOLW/SOURCE 
or to label equate it. <A possible set of compilation control cards 
might be: 


? COMPILE <program-name> COBOL LIBRARY 
? FILE SOURCE NAME = RPGCOB; 
? DATA CARDS 
$ MERGE 
? END 


The B_ 1700 Systems COBOL Reference Manual, Form No. 1057197, de- 


scribes the $ options available to the user for COBOL compilations. 


The B 1700 System Software Operational Guide, Form No, 1068731, 
describes the use of the FILE statement for label equation. RPGCOB 


is a disk file consisting of 80-character records blocked two. 
The results of converting an RPG program into COBOL are discussed below: 


a. The generated data-names are described in the following example: 


03 REPORT-X-UA-4-5-154-RED is a field in a file description, 


where: 

REPORT is the file name used on the File Description Speci-~ 
fications in the RPG program. 

UA represents the data format of this field (UA, SA, UN, or 
SN are possible). 
is the digit displacement of this field in the record. 

5 is the width cf this field in digits or bytes, depending 
on the PICTURE associated with this field. 

154 is the relative position of this field in an internal 
table. 

RED indicates that this is a redefinition of another field. 
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The actual data~names from the RPG program will be found in the 
WORKING-STORAGE SECTION with -F appended. These fields are filled 
in the INPUT-MOVE portion of the COBOL program and are used in the 
various calculations as required by the Calculation Specifications 
in the RPG program, 


Compile-time vectors are entered in the same manner as if compiling 
RPG. These tables become WORKING-STORAGE SECTION entries containing 
the vector values entered at compile-time. The individual areas with- 
in this vector are referenced by an entry such as the following: 


03 EX-TABAC-F PC S9(11) CMP OCCURS 5. 
03 PX-TABAC-F PC 9 (4) CMP. 


where; 
EX is the prefix used to designate that this is an element 
in a vector. 
TABAC is the vector name from the Extension Specifications of 
the RPG program, 
PX is the prefix used for the subscript field for this 


table. 


RPG Indicators are prefixed by IND-, e.g., indicator Ol becomes 
IND-O1. 


References to UDATE will cause a single access to TODAYS-DATE which 
is then stored in the field UDATE-F. 


If PAGE is used in the RPG program, a field, PAGE-F, will be declared 
and logic necessary to increment it is developed. 


TAG names used in the RPG Calculation Specifications will appear as 
paragraph names in the COBOL program with ~F-TAG appended, e.g., 
ENDDET-F-TAG. 


B 1700 COFIRS II allows up to 15 files, 512 fields, and 64 vectors in 
a program for translation, subject to limitations in the RPG Compiler. 


The Program Identification inserted in columns 73-80 is taken from 
columns 75-80 of the RPG Control Card. If this field is left blank, 
the default is RPGOBJ. The new COBOL source file name is RPGCOB and 
is sequenced by 100. 


The following defaults are used if the appropriate information is 
not provided in the RPG source program: 


1) <All files: 


Option Default 
Family Name Internal file name from 
the File Description 
Specifications, 
File ID None. 
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a+ 


2) Disk files: 


Option Default 
Areas ZO% 
Records per Area 500. 
Disk Pack ID None (defaults to 


System Disk). 


All these options, as well as other B 1700 RPG options, may be 
included in the RPG source program to be translated. 


System Requirements: 


B 1700 Central Processor 
Minimum of 32 KB Memory 
Card Reader 

Line Printer 

Disk 

MCP I or MCP II 

RPG Compiler 

COBOL Compiler 

COFIRS Object Code 

SDL Interpreter 

COBOL Interpreter 


APPENDIX G 


TAGSORT WITH RPG 


TAGSORT is a method of sorting records in an input file by creating a tagfile 
by which the input file is sorted. The tagfile is placed on disk and may be 
referenced by any RPG program which contains the original input file for which 
the tagfile was created. 


The method for creating a tagfile is discussed in the B 1700 System Software 
Operational Guide, Form No. 1068731. 


Basically, the tagfile is created by a TAGSORT program which goes through the 
input file, extracting the key field(s) from the record, and adding the po- 
sition of the record, relative to the first record in the file. The tagfile 
is then sorted, using the regular sort concept, and leaving a file of relative 
record numbers (4 bytes in length) sorted in the specified sequence. The 
original input file remains unchanged. 


To access the tagfile in an RPG program, both the tagfile and the original 
input file must be declared on the Input Specifications. The access method 
will be indexed. FACTOR 1 must contain the tagfile name (if no fields with- 
in the tagfile are specified) or the field name containing the relative 
record number within the tagfile. FACTOR 2 contains the name of the original 
input file, and the OPERATION field contains the CHAIN construct. 


In the example shown in table G-1, the input file DISKFI is used to build a 
tagfile called TAGFILE. Refer to the B 1700 System Software Operational Guide, 
Form No. 1068731. 


Table G-1. Building a Tagfile 


’ Contents of - Contents of 


TAGSORT Program 


DISKFI TAGFILE 
RECD NO 
00001 456 2222 FILE IN DISKFI (DISK (100) 180 1) 00000002 
00002 123 0000 ot) are aa (200) “4 45) 00000005 
00003 879 1111 TAGSORT 00000008 
00004 653 3333 00000001 
00005 258 4444 00000007 
00006 785 5555 00000004 
00007 551 6666 | 00000006 
00008 327 7777 00000003 
00009 965 8888 00000009 
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The contents of DISKFI consists of nine records. The first three digits 
comprise the key field, the last four comprise the data field. 


Since DISKFI was sorted by key in ascending o 
lowest key value, record 2 is placed in the f 
Record 5 has the second smallest key (258), s 
sition of the tagfile, etc. 


r and record number 2 has the 
t 


osition of the taofile, 


Pe ate WY ale WISE anaw Sted = Leeland 


Nn 
yy 
is placed in the second po- 


In the example shown in table G-2, an RPG program called TAG containing DISKFI 
accesses TAGFILE and produces the resultant output. 


Table G-2. Accessing a Tagfile 


Program called TAG 


FTAGFILE IPE DISK 

FDISKFI IC DISK 

FPRINTIT O PRINTER 

ITAGFILE AA Q1 

I Pp 1 40RECNO 
IDISKFI BB 02 

I 1 3OKEY 

I +) SODATA 
C RECNO CHAINDISKFI 

OPRINTIT D Gl 

8) 10 'KEY' 

0 KEY X 15 

O 40 'DATA' 

0) DATA X 46 


Printer Output From TAG 


KEY 123 DATA 0000 
KEY 258 DATA 4444 
KEY 327 DATA 7777 
KEY 456 DATA 2222 
KEY 551 DATA 6666 
KEY 653 DATA 3353 
KEY 785 DATA 5555 
KEY 879 DATA Il111 
KEY 965 DATA 8888 
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RPG PROGRAM CYCLE 


For each record from a primary or secondary file that is processed, the RPG 
object program goes through the same general cycle of operations. After a 
record is read, there are two different instances in time when calculation 
operations are performed and records written out. First, all total calcula- 
tion operations (those conditioned by control level indicators in columns 
7-8) and all total output operations are done. Second, all detail calcula- 
tion operations and all detail output operations are done. 


Total calculations are performed before the information on the record selected 
for processing is made available. Detail calculations are performed after the 
information on the selected record is made available. The following dis- 
cussion describes this concept in more detail. 


Whenever a record is read, a check is made to determine if information ina 
control field (when one has been specified) is different from the control 
field information on the previous card. A change in the control field in- 
formation indicates that all records from a particular control group have 
been read and a new group is starting. When all records from a group have 
been read (indicated by control level indicators being set ON), operations 
may be done using information accumulated from all records in that group. 

It is at this time that all calculations conditioned by control level indi- 
cators in columns 77-8 are done. Total output operations are also performed 
immediately after all total calculation operations are completed. Informa- 
tion on the record read at the beginning of the program cycle is not used in 
these operations; only information from records in the previous control group 
is used. 


Detail calculations occur after the information on the selected record has 
been made available. Detail calculations are used to calculate values needed 
each time a record is processed. They are also used to calculate totals for 
the current control group (if control fields are specified). Immediately 
after detail calculation operations are completed, detail output operations 
are performed. 


The specific steps taken in one program cycle are shown in figure H-1. The 
item numbers in the following description refer to the number in the figure. 
A program cycle begins with step 3 and continues through step 39. 


1. Initialization: 


a. Data fields and indicators may have been preset to their initial 
values by the compiler; if not they must be initialized now: 


1) All data fields and vectors are initialized to zero (if 
numeric) or blank (if alphanumeric). 


2) All match fields are initialized to high (if descending 
sequence) or low (ascending) collating values, 


on-H 


1. 2. 
INITIALIZE 
LOAD 
START ee LES VECTORS ; 


DETAIL TIME 
CALCULATIONS 


EXTRACT 
LOOK AHEAD 
FIELDS 


EXTRACT 
DATA FIELDS 


SET MR 
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3) All control field storage areas are initialized to hexa- 
decimal zeroes. 


4) Indicators LO and IP are set ON, all other indicators are 
set OFF. Under the RPG1 dialect any indicators from 01-99 
used as zero/blank indicators will be set ON, unless also 
used as record identifying indicators. 


b. UDATE, UDAY, UMONTH, UYEAR fields are set. 
ec. External indicators are set. 


d. Files are opened (unless files are to be opened automatically 
when first accessed). 


e. The first-control-cycle switch is set on. This is an internal 
switch used to determine when to suppress total time. 


Pre-execution time vectors are loaded (if specified). 


Detail Output. All heading and detail output operations whose 
indicator conditions are met are performed (this will not include 
output conditioned on overflow indicators). On the very first 
cycle, the option for forms alignment may have been specified. 

If so, step 3 (detail output) is repeated as many times as the 
operator requires. Generally, the programmer will control the 
heading output required on the first cycle by conditioning it on 
the indicator 1P (which will be off for all cycles except the 
first). 


All overflow indicators are set OFF. If any printer file is on the 
overflow line or between the overflow line and the end of the page, 
any overflow indicator associated with that file is set on, 


If any of the halt indicators HO - H9 are on, the program branches 
to step 6; otherwise, to step 7. 


A message is displayed indicating which halt indicators are on. The 
operator has 2 options: 


a. STOP. Program branches to step 13. After performing "last 
record," total calculations, and total output, the program will 
terminate, 


b. GO. The program continues at step 7. 


All record identifying indicators are set OFF. 1P, L1I-L9 and HO-H9 
are set OFF. LO is set ON. Under the RPG1 dialect LR is also set 
OFF. 


Under the RPG1 dialect, the program will always continue at step 9; 
otherwise, LR is tested. If LR is ON, the program branches to 
step 11; otherwise, to step 9. 


The next input record is read. On the first cycle, one record is 
read from each primary and secondary file. On all subsequent cycles, 
the record is read from the file that was processed last. For an in- 
put (not update or combined) file with look-ahead fields, the record 
will already have been read at step 38 of the previous cycle. 


H-3 
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nas 


10, 


a) 
! 


12. 


13. 
14. 


15. 


16. 


17. 


18. 


19. 


20. 


N) 
- 


A test is performed to determine whether the file just read is at 
End-of-File or is conditioned by an external indicator which is OFF 
(on the first cycle, the test is whether any of the files read 


satisfy this condition). If yes, the program branches to step li; 
otherwise, to step 14. 


if this program has a primary fiie and at ieast one secondary fiie 
(i.e., the program performs multifile processing), the program 
branches to step 12, otherwise, to step 13. 


If all required files are at End-of-File (as specified in column 17 
of the File Specifications), the program branches to step 13; other- 
wise, to step 17. 


Indicators LR and L1I“L9 are set ON. 


The record (or in the case of the first cycle, all the records) read 
at step 9 is identified (but the record identifying indicator is not 
yet set ON). A test is performed to determine whether the input 
records are in the sequence specified on the Input Specifications. 
If the record type sequence is incorrect (or if sequenced records 
are specified but the current record cannot be identified), the 
program branches to step 15; otherwise, to step 17. 


The record type sequence error causes the program to halt after 
displaying an appropriate message to the operator. 


The operator may order the program to resume. In which case, the 
out of sequence record is ignored and the next record is read by 
branching to step 9. 


It multiple input fiies are specified, the program branches to 
step 18 in order to select the next record to be processed. If 
no secondary files are specified, the program continues at step 21. 


If the FORCE opcode was performed during the previous program cycle, 
the forced file is selected for processing and the program branches 
to step 24. 


The current records from each primary and secondary file are in- 
spected in the order that the files were specified on File Speci- 
fications. The first record that has no match fields is selected 
and the program branches to step 24. If all records have match 
fields, the program branches to step 20. 


The record with the highest priority matching field value (highest 
collating value for descending matching sequence, lowest collating 
value for ascending sequence) is selected to be processed next. If 
two or more files have equal and highest priority matching field 
values, the one with highest priority is selected (priority cor- 
responds to the order in which files were specified on File Speci- 
fications). 


As there are no secondary files, record selection is unnecessary. 
If the current record from the primary file has match fields, the 
program branches to step 22 to perform matching sequence checking. 


22. 


23. 


24, 


25. 


26. 


27. 


28. 


29, 


30. 


31. 


32. 
33. 
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The match field value of the selected record is compared to the 
match field value of the previous record processed. If it is in 
sequénce, the program continues at step 24, If the match field 
value is out of sequence, the program branches to step 23. 


The program halts after displaying a message to the operator indi- 
cating that a match field sequence error has occurred. 


The program sets ON the record identifying indicator specified for 
the selected record. However, data from this record is not available 
for processing until step 37. If look-ahead fields are specified for 
update or combined files, they are extracted at this point (all other 
look-ahead fields are not extracted until step 38). 


If the selected record has control fields, a test is performed to 
see if the contents are equal to the contents of the control field 
storage area, If the contents are unequal, a control break has 
occurred; the appropriate control level indicators are set ON and 
the new control field contents are stored in the control field 
storage area. Note that until the first control break occurs, the 
control field storage area contains its initial value of hexadecimal 
zeros. 


If the first-control-cycle switch is ON, the program branches to 
step 29; otherwise, to step 27. 


Total calculations (calculations conditioned by control level indi- 
cators LO-L9 in columns 77-8) are performed. 


Total output that is not conditioned by an overflow indicator is 
performed. When this output is complete, the program tests to see 
if the overflow condition has occurred. If any printer file is on 
the overflow line or between the overflow line and the end of the 
page, any overflow indicator associated with that file is set ON. 


If control fields were specified in this program, the program branches 
to step 30; otherwise, to step 3l. 


If a control break occurred on this cycle (at step 25), the program 
branches to step 31; otherwise, to step 32. 


The first-control-~cycle switch is set OFF. Total Calculations and 
Total Output will be performed on all subsequent cycles (if no con- 
trol break occurs, only LO operations will be performed). 

If indicator LR is ON, the program branches to step 33. 


End-of-Job routine. 


a. Output any vectors specified with a TO FILENAME on the Extensions 
Specifications. 


b. Perform any file maintenance e.g., sorting an indexed file if 
unordered or if additions have been made. 


ec. Close all files. 
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35. 


36. 


37. 


38. 


39. 


Overflow output is performed for each printer file on which overflow 
has occurred on this cycle. The test and the output performed take 
one of two forms. If an overflow indicator is assigned to the file 
on File Specifications or if overflow output is specified on Output 
Specifications for the file, the test is whether the overflow in- 
dicator for that file is ON (it may have been set ON by SETON; it 
may also have been set OFF if overflow output has been Fetched) , If 
so, any Total and then any Detail output for that file which is con~ 
ditioned on the overflow indicator is performed (if none is specified, 
no overflow output will be performed). The overflow indicator is 
then set OFF. 


If no overflow indicator is assigned and no overflow output is 
specified for the file, the test is whether the overflow condition 
was satisfied in steps 4 or 28. If overflow did occur and has not 
been Fetched, the object program automatically generates a skip to 
line 1 of a new page. 


The matching record indicator MR is set ON or OFF. MR is set ON if 
a match has occurred (i.e., if selected record has a match field and 
the current match field value was originally selected from a pri- 
mary record). 


Data is extracted from the current record and made available for 
processing. Any field indicators specified are set ON or OFF to 
reflect the status of the data fields. 


If the current record is from an input (not update or combined) file 
which has look-ahead fields, the next record from that file is read, 
and the look-ahead fields are extracted and made available to the 
program. 


Note that look-ahead fields from an update and combined file are made 
available at step 24. 


Detail time calculations are performed. Processing continues with 
step 3. 
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